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Special Offer for AC Readers! 

AMOS (US), AMOS Compiler, and AMOS 3D 

all throe for onl) $99.99* 

Bring your Amiga to Life! 



AMOS - The Creator is like nothing you've ever seen before on the Amiga. II you want to harness 
the hidden power ol your Amiga, then AMOS is (or you! 

AMOS Basic is a sophisticated development language with more than 500 different commands to 
produce the results you want wilh the minimum of effort. This special version of AMOS has been 
created to perfectly meet the needs of Amencan Amiga owners. It includes clearer and brighter 
graphics than ever before, and a specially adapted screen size (NTSC). 



"Whether you are a budding Amiga programmer who wants to create fancy graphics without weeks 
of typing, or a seasoned veteran who warns to build a graphic user interface with the minimum of 
fuss and Imk with C routines. AMOS is ideal for you." Amazing Computing. June 1992 

^ Define and animate hardware and software sprites (bobs) with lightning speed 
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^ Display up lo eight screens on your TV at once - each with its own color palette 
and resolution (including HAM. interlace, halt-bnte and dual ptayfield modes) 

^ Scroll a screen with ease Create multilevel paraiiai scrolling by overlapping 
different screens - perfect lor scrolling shoot -em-ups. 

^ Use the unique AMOS Animation Language to create complex animation 
sequences for sprites, bobs or screens which work on interrupt 

^ Play Soundtracker, Sonix or GMC (Games Music Creator) tunes o» IFF samples 
on interrupt to bring your programs vividly to life. 

^ Use commands like RAINBOW and COPPER MOVE to create fabulous color 
bars like the very best demos. 

^ Transfer STOS programs to your Amiga and quickly get them working like the 
original 

^ Use AMOS on any Amiga from an A500 with a single drive to the very latest 
model with hard disk 



what vor <;kt: 

AMOS (US) -AMOS BASIC, spnie editor. Magic Forest and Amosterods arcade games. Castle AMOS 
graphical adventure. Number Leap educational game. 400 page manual with more than 80 example 
programs on disk, sample tunes, sprite files, and registration card. 

AMOS Compiler— AMOS Compiler. AMOS language updater. AMOS Assembler, eight demonstration 
programs which show off the power of the compiler, and a comprehensive, easy-to-use manual to 
develop lightning fast software 

AMOS 3D Obioct Modeler. 30 new AMOS commands, and more AMOS 3D allows you to create 3D 
animations as fast as 16 to 25 frames per second You can display up to 20 objects at once, mix 3D with 
other AMOS features such as sprites, bobs, plus backgrounds, and more 

Limited Time Offer/or W,' readen only! 

Get all three AMOS packages at one great price Order today by sending your name, address 
(physical address please— all orders will be shipped by UPS), and $99 99 ("plus $10.00 for Shipping 
and handling) to AMOS Special. PiM Publications. Inc.. P.O Box 2140. Fall River. MA 02722-2140 or 
use your VISA. MasterCard or Discover and lax 1-508 675 6002 or call toll free in the US or Canada; 
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printf ("Hello") ; 



print "Hello 



JSR printMsg 



// 



say "Hello 



// 



writeln ("Hello") 



Whatever language you speak. Wh I IX II 

pro* Idea a platform lor bolh gaining insi-hi 

and sharing informal ion on its most 

innovative implementation for ■ !■«- Amiga. 

H'h.v not mm- If vour latest programming 

endeavor ran help a follow Amiga user 

expand upon his or her vocabulary? To Im» 

considered for publication in AC*S 11(11. 
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An Interview with Commodore's Chris Ludwig 

Developing for the Amiga CD 32 



Immediately afltr the release M Europe of the Amiga 
CD32 and in preparation for the North American 
release. AC's TECH was fortunate enough to 
contact Chris ludwig. Commodore's Multimedia 
Standard* Engineer end Wayne Lutz. of Technical 
Support, to rftsruM some of the features and 
possibilities of Commodore's new game platform. 
Below is a series of questions and answers 
concerning C032 features and deivlopmeut 
potential. 

AC: What imka the CD32 different from the 

orighmlCDTV? 

I.udwig: CD32 hU a lot more feature* than (he 

CDTA had It Is more up-to-date wilh the 

Amiga line, with a lull AA chip set .in J .1 
UMH/ '020. The lop-loading CD-ROM .Invr is 
dual ipeed nD will play ai WOK per sexond as 
well as I50K per second and does not require a 
caddv It has fewer ports than theCDl V winch 
«iii' removed as .1 cost n*duction measure li b 
squareh targeted at the same enlertainnwnl 
audience as a SEC>A CD in that 11 need* to be 
low cost and does not require computer 
features l( has ynn features 

AC: How i.< CD32 different from oilier platf' 
Ludwig; Versus other platforms, the benefits 
arc obvious There are o\ er -1 million Amigas in 
tin- world and each is potentially a CD32 
development system. Amiga developers have 
been creating products since I W> There is 
plenty Of support software available to help 
developers create software 

As far as hardware. theCD32 is teehnicallv 
superior to anything that is currently on the 

market it is the only K-Wt CD games console 

.1-. v. ill as the only game console available with 
a 300K per second CD drive. The graphic 
qualitv provided by the AA chip set oilers 
better graphics than anything else with higher 
resolution displays and many more colors than 
tin si 1 . \ <>i \intendo systems 

AC: Wlwl about the competition from MX)? 
Ludwig: ( D32 has a higher graphic resolution 
than 3DO, We have a part called the AKIKO 
which i~ a fairly large gate array thai include-- a 
number of the glue functions of the 1200. 

The AKIKO also has a part called the 
chunkV'lo-planar converter which allows 
developers to work with VI) data a lot taster 
than they would on a traditional Amiga system. 
even faster than on an Amiga 1200. bringing us 
closer (o the kinds iDOhas promised 

and ours is a lot cheaper 

AC: The price in the US willbe? 

Ludwig; The only price I am sure of is the Q99 

announced in the UK 1 am sure the price will 

\\- s,-i for \orih America soon 



AC: What is the, tj tOM? 

ludwig: CD32 uses a standard iso%«)fik' 
sysu-m. That translates toaboul 580MB minus 
150K per second audio or MPEGd 111 

AC: What features 111 CD32 help in en 

Ludwig: If you are doing cross-platform work. 
one of the nicest things is |hatCD32 has native 
modes which are very Ionian lolhe native 
modes of other machines-— cspedall) PC 
machines A lot ol developers do then work i"i 
PCl first and then scale down to .1 console With 
< 1 "2 they would not need to scale their work 

down II they were starting with 640 » 400 Of 
M0 x 480 256-COlor graphics, they could USC 
those graphics directly l< would be a matter of 
converting them to Amiga but they would not 
lose any resolution In fact, the chun- 
planar hardware can convert the pictures tor 
you 

AC: There is no CD12 ex/. ■ 
from Commodore for exist ing An 
Ludwig: lhai is true We run e started to add 
siiftware support for theCD32 m the Work- 
bench 3.1 which is not yet available Almost all 
of the extra bits in the CD3S ROM such as the 
low level. library and the CI) device will be 
available as disk-loadable libraries when 1 I is 
released In fact using the< i» deuce and CD 
Me system, most CD32 titles should run with no 
problem on any AA chip set Amiga with a 
SCSI-2 CD-ROM drive 

AC: What do you Hkt l-ot about the CI 
Ludwig: I'o me the expandable nature of CD32 
is cool. It has a huge expansion bus that has 
nearly ev ery signal in Ihc machine except the 

keyboard and joysticks rhal opens us up to a 
lot of markets It can get to In- a faster machine 
in a hurry I can see dec elopers providing extra 
memory and accelerators for CD32 Extra 
memory would act as an accelerate*! because the 
extra memory would be fast HAM ^m<\ lh.it 
would increase code execution speed There Is ■ 
ton of things you can add on to a port like that 
It could be a cable controller box or anything 
else thai you want to do with it 

MPEG is one expansion already planned lor 
the port 

Ludwig: Wayne what ^' you like about the 
CD32' 

Lutz: I Kke the double speed drive in 
connection with the A A chipset Because you 
an pull data off the drive very last and then 
dispi.n it on the screen with 16 million colors, 11 
looks rcall) -harp It opens .• lol of opportuni- 
ties tor game-., entertainment, and educational 
titles. 

Ludwig: The controller is really nice too The 
extra buttons allow a lot more flexibility when 
you are designing games Most games todav 



requirea lol more control than can be afforded 
b) lour dire. lions and a fire button 

AC: This can be much m ■■• ^.e machine' 

ludwig: rhere are certain areas where H will 
he Ideal Basically anywhere where you need to 
install a lot of delivery platloinis BeCSUSC of the 
machine's low cost and its ability to hold a lol of 
data, with an MPBG module, or even without it. 
it would Iv ideal as ,1 replacement for laser disk 
v ideo systems thai are King installed in kiosks 
nation-wide these days ( D32 is Ideal for these 
types ol installations The high graphic qualm 
A A chip Sflt fetS YOU supply photographic 
quality thai will present a product very well. 

it makes sense to consider this box for a cable 
telex ision COntroUtt I or anything concerning 
\ Ideo in the home, it is perfect low cost tots 

more processing power, lots more memory, and 
a good delivery platform 

AC: Most of the deivlopment is happening in 

Europe? 

Ludwig: Lor the most part ll is surprising for 

people to learn |iist how many games are 

developed in Europe, especially in the UK. 

AC: Anu additional comment*' 
Ludwig: There is one thing 1 have John 
Campbell's (Commodore's CATSdircctort five 
steps to Amiga siic.es- on the C032 from a 
letter going to dev elopers 

Step 1 Keep your developer status current 
ll you are not .1 developer than you should 
become one. 

Slep 2 I hen is a publication available to 
registered developers called the Amiga C032 
,i'r Notes which would be useful 

Step * I here is a licensing agreement 
required for anyone who wants to ( reatc Amiga 
> D32 disks and distribute them ITusiswhatis 
needed to get development tools (or the CI >~- 

Step i As far a- a developer s\ stem, it is 
Important thai you get an AC.A-KwsJ Amiga 
At some point vou will want to Invest In iCD- 

ROM writer I here is nothing like saving it is 
done than handing your grandmother a disk to 
play and experiment w ith 

Step s |oin MIX The developer conferences 
for registered developers are important and it is 
the place to get electronic tools and electronic 
versions of documentations it 1- a great 
distribution system tor US 

It: 1 BM'l Heaving agreement is a lol easier to 

>tih than other mid 
Ludwig: That is true We do not require 
developers Income Io us to have then disks 
pressed, while Nintendo and SEGA require 

developers to have their product duplicated 
and produced by them This adds considerably 
to the production cost 1 y 
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Some New Windows on the Amiga Scene 



bv Jeffrey Stein 



I' -Basic 5 is the latest and miht mature version in the evolution 
Df a powerful programming language lor the Amiga. Over the last five 
yews, MCtl new version of F-Basic from IX-lphi Noetic Systems. In, 
has removed restrictions and enhanced the scope of this system 

Version 1 .0. released in 1987, provided neither editor nor linker 
and, among other limitations, ran only from the CLI. Version 2 0, 
rel.-.isedby DNS in ihe spring ofl989, added the abi lit v to run under 
the WorkBench. along wilh providing its own linker to allow 
standalone executable object hies. Additionally, high level reading and 
writing of IFF picture files, random access files, high level animation 
support, and double precision floating point were include.! Next. ,in 
integrated editor environment, direct 68020/68881 support, IFF sound 
file player, user -defined operations on record structures, and i built-in 
matrix, and complex number package appeared in Version 3.0 (circa 
Fall. 1990). With the advent of F-Ba-ic 4.0 early in 1992, DNS devel- 
oped high le\ el ARexx support, gadget and advanced mouse features, 
separately compiled modules. 68030/68882 support, and an unproved 
editor and WorkBench icon arguments in the language. 

This article is based on a pre-release version of F-Basic 50, 
obtained from Delphi Noetic. According to their Spokesperson, the 5.0 
release is scheduled for spring 1993 and probably will be shipping bv 
the time this review is published For those unfamiliar with the P-Bash 

sj stem, a brief overview of the language is first presented [Wa Is 

followed by l discussion of the new features added in 5.0, most 
importantly the complete support provided for the various screen 
modes aiailableonlheECSand ACA chip sets. 

An Overview of the F-Basic Language 

F-Basic is a synthesis that retains much of the syntactical 
simplicity of traditional BASIC while providing advanced natures like 
record structures, pointers, recursion, access to the Amiga ROM Kernel 
libraries, etc. found in more modem languages like C or Pascal. At the 
core of F-Basic, the computation of anthmetk expressions, control 
structures such as FOR loops, IF/THEN statements, GOTOs, and 
simple input and output would be Immediately recognizable bv any 
BASIC programmer. 

To emphasize the similarity of the two languages at this level 
I bang 1 isa simple F-BasK program tocomputea mortgage amortiza- 
tion schedule. The example also illustrates most of the essential 

nces between 1 -Basic and AmigaBASlC. F-Basic programs begin 
with a PROGRAM statement and, like C or Pascal, require that each 
variable be explicitly assigned a data type at the beginning of the 
program This is .in expected consequence of F- Basic's provided ability 
for the programmer to define his or her own extended record data 
types. Such variable typing was unnecessary in standard B \Mi 
because most supported only three data types: integer, real, and text 

The other major difference, and perhaps the most controversial, 
lies in F-BatJC*S method of string handling. High level languages 
typically represent strings in one of three wavs: 



Dynamically, as in standard BASIC; 
Statically with a designated termination character as in C; 
or Statically without a designated termination character as in F-Basic 
or Fortran. 

I Bch of these str.iuy.ies has its strengths and weaknesses 
Dynamii strings are certainly the simplest from the programmer's 
point ol view. One simply dedaita S string variable without specifying 
its maximum length Each time a text string is assigned to a string 
\ariahle the previous memory used to hold the old value of the string 
is delete.! and enough new memory is allocated to accommodate the 
present length ot the text string. The purpose of the string variable is to 
keep track of the memory, jusl allocated, for the text string. There is l 
price, however, for relieving the programmer of the task of worrying 
about the length of the string variable. The overhead associated with 
deallocating and allocating memory during each string compulation 
will slow the whole process by as much as a factor of 10, even in 
compiled BASIC systems In programs that do extensive text manipu- 
lation, this is not a trivial consideration. 

The alternative to dynamic strings is to associate a fixed buffer 
area ..( spedfled length with each string variable. This strategy is called 
statu string allocation because the memory location used to hold the 
string is fixed throughout the execution of the program, thus eliminat- 
ing the need tor memory allocation and deallocation. The principal 
drawback from ■ programmers standpoint is that one must estimate 
in idx ance the maximum buffer size associated with each string 
variable lliere are two variants in this approach. The language may or 
may not use a special character, called the termination character, to 
indicate the present end of the string within the buffer. For instance. C 
places .i zero byte after the last valid character in the siring This makes 
the task of assigning a short string to a longer string (.is m 
l-ongStrmg-ShortString) easy. The contents of the shorter string is 
. opied Into the buffer for the longer string and a zero byte is placed 
atter the short string to indicate its present size. Although the use of a 
termination character makes such mismatched assignments easier, it 
too involves restrictions, One cannot store arbitrary data in a string 
variable, as the data may itself contain a termination character [« 
example, editing non- ASCII files or transmitting and receiving data 
over the Serial port. In addition, most substring operations with a 
termination character are Slower and more complex than they would 
In- otherwise 

Alternatively. F-Basic and Fortran do not use s termination 
character As noted, this allows strings to contain arbitrary data and 
makes substring Operations convenient and fast. It does, however. 
require when assigning a short string to I longer string that the longer 
string be tirst filled with blanks it the portion of the longer string 
buffer beyond the end of the shorter string is to be discarded. The 
Conclusion is thai Stark strings, with or without a termination 
character, require more effort on the part of the programmer to keep 
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tr.uk of string lengths, but pay largo dividends in increased sp. 
execution Ibis is illustrated by the -.peed ol I -Bask's Single pass 
compiler, which is itself written in F-Basic and ohviouslv is very string- 
function intensive Previous published article* have shown F-H.i 
speed ot compilation to be pace-setting, even when compared to ether 
conunen ia) dm elopmenl systems. 

To give the flavor of string manipulation in F-Bask, 1 Isting2 
Shows a program that inputs ,1 text string and prints out all possible 
"words" obtained by rearranging the letters ot the text string Ibis 
mirrors the popular "Jumble" game that appears m main newspapers 
across the country 

Beyond its core. F-Basic provides a number o( powerful exten- 
sions to standard BASIC These include record structures and pointers, 
local and global variable-., and simplified high level creation ot screens, 
windows, menus, gadgets, and requesters. Interactions with the 
moils.', high level ac.ess to the serial port and animation, easv access 
to the Amiga-. ROM Kernel library (unctions, the ability to add 
programmer libraries to the standard system libraries, built-in 
Operations Wtlh vectors, matrices, and complex numbers, and an 
ARE XX interface are some of the more important extension-- present In 

P-Bask 

Although simple F-Basic programs look very much like their 
counterparts In r\migaBASIC F-Bask's abilirj to provide record 
structure* and pointers allows it to handle more sophisticated 
programming tasks in a natural way 11ns is best illustrated by F- 
Bssic's interaction with the AntigaDOSrjpcmtlng system. Internally, 
llu- Amiga associates complex record structure* to manage the details 
for most ot its major distinctive features Records and pointers allow F- 

Bask programs to eorrmiimkale smoothly with Amiga ROM routines 

without forcing arravs ,ind integer variables to do the job Any BASIC 
programmer who hi ed to PEEK or POKE memor\ to 

simulate a record structure will appreciate tins addition 

It has been recognized for a long time that the best approach to 
managing the design of a complex program is to divide it into a 
number of small module*, each of which performs a simple task- In 
such a case, some variables are used onlv within one module, white 

other variables represenl data that must bo universally accessed by all 

modules Data Ol the BrSl type in F-Bask are assigned a data type 
within the module itseli M^i are referred to as tool variables Data 
variables ot the second rype are referred (O as global variables .md are 
declared within the global variable list of the main program This 
distinction is common to F-Besk, t and Pascal 

The sample program in Listing 2 uses global variables to facilitate 
communication between the main module and the Jumble subroutine. 

The approach taken to the implementation of Amiga-specific 
features such as screens, windows, gadgets, menus, sound, etc.. in 
languages other than F-Basic falls into one of throe basic categories 
Some. such. is rwBssJc, avoid Amiga-specific interactions in the name 
mililv In tins case, one may wonder whether ,\n Amiga without 
its ipecial features is really whal a programmer is alter 

Others, such as AmigaBASIC, provide simplified high level 
construction of these features The underh big nature ol the graphical 
user interlace, from the viewpoint of the operating system, is very 
much more complex than the details that can bo easily specified in any 
AamigaBASK statemenf i bus this group typically makes certain 
default choices in defining their underlying structure* and renders 
customization to fit special needs somewhat difficult 

A third class o! sj stems, such as C, take* a "no holds barred" 
appiiMchand requires that the programmer include all relevant dM.\ 
structure* lh.it would be used if one were implementing these feature* 
in assembly language Tins has the advantage of providing complete 
control over ei cry one of the Amiga's details, 

F-Basic attempts a synthesis of the latter two methods On the one 
hand, windows, screens, gadgets, menus, and the like are typically 
created with a single high level statement that pro* Idea more option* 
than the cor r e sp onding AmigaBASIC statement In addition, F-Basic 
returns pointers to the underlying structure-, lor those adventurous 
enough to deal with them directly. As F-Ba.su allows the definition of 



such record structures, the alteration of char a cterist i cs that were 
defaulted by the high level statement i- not as tedious as C's require- 
ment of defining 'be entire structure, starting trom scratch. 

One of the more pleasant features within F- Basic IS provided by a 
prolusion ol event Structures, An event structure is a block ol high 
level code that is executed only when the specified event occurs 
Examples of events include mouse single, double, and up/down clicks. 
receipt of an AREXX message, keyboard clicks, collision between 
animated objects, menu selects, window closing or resizing, and serial 
port communication, among others 

These structures ad like a high level interrupt. When the 
processing associated with the event is finished, control returns back to 
that point in the program where exCt Ution was interrupted. This 
feature eliminate* the need for constant checking to see it Mime action 
has been taken by the user Many characteristics associated with each 
occurrence, such as the mouse coordinates in the case of a mouse 
event, or the menu and item number in the case of a menu selection are 
provided bv pr e -de fin ed system variables A si 1 1 1 1 function i* 
provided to complement the high level interrupt structures. This 
statement may be used to suspend execution ol the program without a 
busy waif loop until an event occur* particularly valuable in the 
Amiga's multitasking environment 

All ROM Kernel functions may be executed trom within an F- 
Baslc program as though thev were user delinod subprogram*. In 
addition, an F-Basic program is provided to facilitate the inclusion of 
any user defined libraries, along with those of the ROM Kernel. 

I 'Bask supplies an enormous variety of COOUTUtndS and built-in 
functions to perform such tasks as string pattern matching (as in 
SNOBOL4), conversion between strings and numeric types, the 
standard transcendental functions such as 1 \. I C Ki, EXP. SIN (even 
inverse hyperbolic trig functions!)- -» wide variety ot graphic* and 
animation commands, the inclusion of machine language code, direct 
access to pTOOBSSOl registers, random access file*, IFF picture and 
sound files, speech synthesis, and many more All of these features are 
easily located within the manual, which contains an extensive index, as 
well as a special appendix listing tables ol commands ol similar types 
The manual, which has a desktop published appearance, contains 
comprehensive and concise information with normally at least one 
programming example lor each new feature introduced 

F-Basic's real arithmetic is extraordinarily fast it possess es a 
specially optimized prop ri e ta ry nine digit lormat a* well as the 
standard IEEE double precision formal The latter rnav he imple- 
mented, if desired, by the F-BaSk compiler as mime coprocessor 
instructions instead of the slower ROM Kernel calls provided by the 
operating system- 

In addition, the I -Basic compiler appears to perform a number ol 
local code optimizations For instance, logical expressions vwlhin 
control statements are converted into short circuit logic At the 
programmer's option, the first four integer variables or the first two 
real variables are stored within processor registers to speed data 
access. Integer multiplies or divides using small integers may be 
optimized with an &QUICK compiler directive. Among the many 
compiler command options available are those which direct the 
compiler to generate code spet Lft to the 68020, 68030, or ammo i Amiga 
2500, 3000, or 4000) and enhance the execution speeds on those 
platforms Overall, F-Basic is competitive in speed with the Km 
available compiled language-, and is perhaps fastest in floating point of 
any system available on the Amiga Tins fact has also been noted in 
previous published reviews and timing tests 

F-Basic has taken a tentative step towards ob|ect -oriented 
programming with the inclusion of operator ov erloading That is. the 
user rnav redefine anv of the single character operator* to perform new 
operations on any user-defined record data type The system itself 
emplovs tins feature to provide buOt-in vector, matrix, and complex 
arithmetic It is hoped that future versions will continue this trend 
F-Basic nut} he invoked trom the CI I. WorkUench. the user's 
favorite text editor, or the P-Bask integrated editor environment that is 
packaged with the system The latter provides a unified approach to 
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editing, compiling, executing, linking, and debugging Alter i program 

n constructed (torn within the editor, it may be compiled 
without leaving the editor, and In the event of a syntax error, control 
automatical!) returns with the cursor located at the offending line in 
addition, Delphi Noetic provides .in optional Source Level LVBugger 

(SI-DB) which permits the single Step execution of programs, i In- 
setting of execution breakpoints, the display ami modification of the 
values ol the program variables within a tuliy windowed Intuition 
interface, and the examination and modification ol memory, p r ocessoi 
and coprocessof registers, fhe strength ol the SUM appears to be thai 
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The heart of the package is the fast and powerful 
assembler and debugger supporting all 680x0 
processor" and coprocessors which is now .ii 
least 10% quicker than its predecessor. Compat- 
ible withall Amiga computers and indtidi-s sp,- 
dfic library support for Workbench 13,2, and 3 

Highspeed Pascal $199.95 

The leading Pascal development system for all 
Amiga computers Compatible with Turbo Pas- 
cal Ml on the PC, the system includes an inte- 
grated multi-window editor and Interactive en 
ror detection and I oampUer that proce-.se-. more 
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than 20.000 lines per minute Also supplied is a 
stand-alone CLI compiler, inline assembler for 
ultimate speed, and versatile make facility for 
easy project management. These features make 
Highspeed Pascal a truly powerful and easy-to- 
use system for all levels Compatible with all 
Amiga computers and includes specific library 
support lor Workbench 1.3, 2 , and 3 
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amplifier or mixer. Also included is a complete 
MIDI interface for use with any MIDI instrument 
and CCflUnerdal MIDI software applications. 

The software package includes a powerful 
multitasking windowed sample editor with ad- 
vanced editing and signal processing capabili- 
ties The -ystem can alMirvriorrn real tune effects 
processing as well .is (unction as a MIDI sample 
sequencer. Clarity 16 is compatible with all Amiga 
computers including the A1200and A4000. 
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it works at the source level of the program, rather than the assembly 
language level Although a knowledge of machine language is nut 
required, these enthusiasts will find that a fully featured rev erse 
assembler is also included The SI I )H greatly simplifies and speeds up 
program development. A simple programs disk is also included with 
the SJ stem, containing over 100 example-- illustrating most of the 
important language features. 

New Features in F-Basic 5.0 

Undoubtedly, the outstanding characteristic which separates the 
Amiga platform from competing computer 
hardware is the power, versatility, and 
flexibility of its graphics capabilities. Until 
5.0. F-Basic screens wen 1 based upon the 
formats provided by the original graphics 
hardware. This meant that users with the 
ECS Or AGA chip sets were unable to easily 
implement the explosion of new screen 
modes and window formats made available 
with the improved graphics hardware. With 
the new release. I -Basic supports an 
additional extended S< Kl ment. 

which greatly enlarges the choices available. 
Phe most important of these allows the user 
to select from a palette of the over 100 total 
screen modes (depending upon the user's 
monitor, chip hardware, and Amigal X >S 
version) supported by the operating system 
These new modes significantly enhance the 
screen resolution, depth and number of 
colors available per screen, and "look" 
available to the F-Basic programmer. 

In addition to the support for the PCS 
and AGA chip sets, each of the four 
i >\ erscan types (Text. Standard, Max. and 
Video) are available with F- Basic screens 
and windows For those unfamiliar with 
overscan, the effect is to permit larger 
portions of the display screen lobe 
accessib le for the rendering ol text or 
graphics. Alternatively, one may specify that 
the screen opened match exactly the 
WorkBeneh screen, saving the programmer 
some effort Finally, new F-Basic 5.0 screens 
support PAL formats for European users ,■; 
the system These formats typically have 
more scan lines per display and a higher 
refresh rale than the corresponding NTSCor 
Multi-Scan monitors, Compared with the 
four limited screen modes available in 
pre* iiuis veisionsof F-Basic, 5.0 opens 
whole new vistas on graphical interlace 
programming. 

Continuing the theme of enhancing the 

graphical Interface capabilities ot I nasi,. 

DH 5.C provides an easy sequence of 

high level commands for installing new 
fbntS ITiese permit printing with different 
text loots and colors within the same 
window among other things 

Earlier versions of F-Basic printed text 
in windows using the Amiga's console 
device that limited text lines to locations that 
wen an even multiple ol the font height in 
pixels lo provide further flexibility in the 
construction of displays. Version 5.0 uses an 
alternate print function that allows text to be 
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positioned beginning &l any pixd location within (he window. In 
addition, new commands sense the current width and height ol the 
active font, as well the number ol lonl characters per line and the 
number of lines per window. This aids in printing (exl and graphics lo 
a window whose size may be arbitrarily changed by the user during 
execution. 

The repertoire ol high level interrupts has been enhanced with the 
inclusion ol a window resize event and a serial port event The UK "' 
high level events m Vl) is illustrated i" Lifting 3, where both the syntax 
ol an event block and a typical example Ol i(s use are shown 

The last several versions ol F-B.isic have had the capability ol 
transmitting data over the senal port using its PRINT* command. 
I Imvever, to receive data using the INPUT* statement meant that the 
F-Basic program would suspend execution when this command was 
encountered until some new data arrived at the serial port. One could, 
of course, alwavs gel around this limitation by using the ROM Kernel 
facilities (hat can be accessed through F-Basic; but this again required 
that the programmer become familiar with the internals ol the K( >\1 
Kernel data structures Listing 4 illustrates the new SERIAL event 
block and the simplicity with which the latest serial information is 
accessed In addition. 5.0 adds high level commands thai may be USCd 
to alter the characteristics of the serial port. ie baud rate, parity, error 
checking, etc. 

The Version 5 1) editor and SLDB, which along with the compiler 
are themselves written in F-Basic, have apparently taken advantage ol 
many of the new improvements in the graphical interface. The earlier 
F-Basic editor was re st ric t ed to operating within a limited screen 
format while the new editor is capable ol adjusting to any ol the 
various screen modes and fonts available on the Amiga. It therefore 
possesses the new 3-D look when invoked within the newer operating 
systems This seems to provide a more pleasant "red" as one uses the 
integrated environment. 

Although Space permits touching on a just a lew major innova- 
tions in 5 0, a number ol incremental changes and code fixes have also 
been added by DNS. 

Conclusion 

F ■ Basic 5.0 is I language system that should be considered by any 
serious Amiga developer, ot by a beginner or intermediate program- 
mer who wishes the least painful transition Irom standard BASIC to a 
more modern language As the step trom the ease ol BASIC to the 
powers of C has been best described as treacherous, F-Basic seems to 
bridge that gap in an intuitive and understandable way f Basic SO is a 
powerful, comprehensive, modestly priced program-development 
system and is one of onk a handful ot programming languages (or the 
Amiga still under active support and continued development. ■ ■ 
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UST1NG#1 

PBCGRAH Annual Interest 

DCUBLE 

. vtxithly Inter est .Total Interest . Payromt , IntenacSai 
INTEGER Month 

? REM Thi s program computes the amount of each monthly 

payment 

? which goes to principal and to interest as well as the 

total 
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? JUMBLEprogromwuh conrwni 



[NTECF. 



INTEGE8 USEDtfi) 



■ : 

is 6 characters^**** 
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above variables are 






and arc accessible 






■ 

- 
': ? these text strings are blank * 
USELteO ; ? USED is a boolean value which 

renerrbers 

. --:.•-• net i letter has 

Jy been used 

... 

-'UMBLE Combinations- 

SUBROUTINE JUMBLE 
LOCAL 

INTEGER I 
FOR : 
wotd 

USED (II THEN ; ? Has th< iter been used7 

USEDC 

; ? If not. Ul« 
CALL JUHBLE' ) ; ? Re. Which tills in 



: ? For each letter in the given 



the 






; ? r« 

we used all N letters? 

; ? the EN opei 

; ? list OLD to see 

word has 



HUM) - 

. t out 



ENDIF 

CRETURN 
01 



LISTING #3 

"THIS USTING LS NOT COMPLETE AS IT APPEARS" 



declarations hi 

low open statements hero 



■t I 



Height -WINOa, 
ENDEVENT 

<balance o( program? 
END 



Complete listings and source code 

can be found on the 

ACs TECH disk. 



Please write to: 

Jeffrey Stein 

c/o ACs TECH 

P.O. Box 2140 

Fall River, MA 02722 
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Quick Menus 
for True BASIC 
Programs 



by T. Darrel Wcstbrook 

Writing a user menu for use throughout a program 
can consume much time. For my projects I would design 
a layout that I intended to use throughout a program, but 
as I coded the program I found I was constantly having 
to change the menus. Many of the changes occurred by 
adding new features or deleting others. When I made 
these changes, I had to change the coding of the menus 
to preserve my original menu layout. 



Menu selections should be inluilive and selectable from the 
keyboard or by Ihc mouse. Everyone who use-, an Amiga is lamiliar 
with the intuition pull down menus U mdo* s. used hv IBM- 
compariblc computers, have l similar looking interface I his article is 
about a True BASIC menu module that will solve much ol your menu 
interlace and construction problems and allow you to ipend more time 
writing your program This module is usable on both an Amiga and 
IBM-compatible lomputer running the latest version of True BASIC. 
When you execute this code on an IBM. the IBM must have a bus 
mouse driver installed that True BASIC recognize 

Reference throughout the article to menu items meaas the actual 
descriptive text the subroutines place on the screen. The 'Menu I -> I' 
illustrated in Figure I is an example of a menu item Variables and 
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Figure 4 



subroutine ire in (talks and capitalized words are keywords I me 
numbers are inr reference only. 

I used the following guidelines to write the module; 

• Menus would be sell .entering (horizontally and ■> erlicallv) 

• U' module SHAREd variables to reduce passing variables to and 
from subroutines 

• Menu Items would be selectable from the keyboard (single 
character) and by using the mouse by clicking on a menu selection 

• The returned value from the menu selection subroutines should 
be .1 logical and consistent formal and not be dependent on the menu 

items 

• riie programmer supplies the menu items and the single 
characters used by the menu subroutines 

• Menu construction and display should be reasonable 

There are two menu types in the Menu Module. The first menu 
type displays a two-column menu with a maximum 
selections I'll refer to this .is Menu Column type. The second menu 
type is a free flow diSpU) It has limits, but they are dependent on 
several factors, such as menu item length, unique single keyboard 
input, lateral separation between menu items, and spacing between 
display r.msj'll refer to this .is .1 Linear Display type. Before I get to 




the details of how each menu type operates, I should 
briefly explain the Global Module and then explain 
some of the variables used in the Menu Module. 

The Global Module is small When you incorpo- 
rate the Menu Module into vour programs, ensure 
that you include lines 106 through 108- Following the 
Global Module is the Menu Module. 

Menu Module van.ibl.~-. that you assign values. 
follow: 

MtnuJimUr is the directions or instructions (or the 
user. In my example*, it is the text string. "■ Select bv 
key or use mouse -". 

M«IU_Sp«ce is the number of lines between menus. 
The actual spacing between the displayed menu 
items Is (Menu_Space - 1 J. The minimum is one. 
which results in no spacing between displayed menu 
items 

\\?>'L_Ptn_Cotor is the menu item text color. 
Mmu^rrowjZohf is the color el the arrow used in 
the Menu Column type I Figure 2) and is the 
character highlight color for the Linear Display type 
(Figures). 
"• i- the color used for the McmuJtVm.iV' 

gap M the minimum number of horizontal spaces between the Linear 

Display menu items 

You can change these variables at any time by calling the Menu 
Module Change_Menu_SHARE subroutine These variables retain their 
respective values within the module until jrou change them This Is 1 
characteristic of the module specific s| [ARE statement (see lines 1 15 to 
1 19). Since I used the SHARE keyword, I did not need to devise ways 
to keep these values, pass them to calling subroutines, or recalculate 
them. Vie True BASIC Reference Manual, (opvn > \hWi.i WSs, states that 
SHAREd values become STATIC global variables within the confines 
i-t the module This is a descriptive and logical view of how SHAREd 
variables behave within a module 

After the user selects ,1 menu item, the ErasrJVff'iu. subroutine 
eras,-, the menu (see last subroutine in Menu Module). This subrou- 
tine erases onlv the lines that the previous menu subroutines placed on 
BK screen. It does not clear the whole display. This allows \^u to place 
whatever text you want on the screen and the Menu Module will not 
eras,- || 

There -nc six subroutines within the Menu Module. I have 
discussed two of them. The remaining tour set up and control 
-elections for the Menu Column and Linear Display type menus I'll 
discuss the mechanics behind the Menu Column type and then finish 
with the Linear Display I 

The following information may help you get a pictorial view of 
the Menu Column variables as I discuss them and their usage. 



■MB 1 -» 1 

■MM ] 1 .- Maim Mil 

-=!.. ] -. J 

Nana I -. 4 

■ma IK* If 4 

K*DU 



Mam. l-t] 

Mil • -. ( «* 

Man <j 7 -> 7 

«*ni> Odd la m 



bm.iiu rm 
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Menu Column tvpe uses the Disphy_Menu and 
Ih'.ptju Menu_$rlect subroutines. Paired menu items 
(i e . a led menu column and a right menu column) 
are the foundation ol this menu sot up. The 
Mom ' ill arr.n stor.-s the menu item text and is used 
to pass information to the subroutine Dtsphy_Menu 
Program lines two through eight is an example of 
pUSing this information. The odd array elements 
Hike Ufm_SeltCtedf (n ( l) . (n.3). etc.) are the left 
menu column and the even array elements (like 
lfem_SW«f«/$4(n.2) ... <n,4). etc.) are the nght menu 

column. 

Mi-mi_F.Irniai!" variable controls the screen 
display of MmuJM, Menu_Uem?nte Nptontt tin- 
total menu items and is the character length of the 
letters variable. Using this approach, I did not need to 
check each element o( MenuJ.ist$ array for a null 
value When the last even element in Mrnu ii~i is 
null, then the subroutine will not attempt to display 
that element on the right side of the screen. Null 
menu Hems elsewhere in the MrniW.isf array .ire 
printed (or not printed, depending on your view- 
point) to the scrwn. 

Line five represents an odd number of menu items with the last 
item being a null value. Menu_Elements is equal to seven which is the 
number of characters in the letters variable. To understand how this 
works, delete the number seven from the IcttersS variable on line eight. 
then run the program The last option, 'Menu 7 -> 7'. will not appear 
not Is it keyboard- or mouse-selectable. This characteristic prevents the 
/frm_Sf/<Y(rd$(4,2) null string from being selectable as a valid menu 
item. 

MenujConst (menu constant) is the number of menu item 
matched pairs. Mmu_Cons/ is Ihe integer of length ol letters* divided 
by two. When letters is seven characters in length, then Menu_Coiist 
equals three, I used the MenuJ.'ittJ variable to flag when an odd 
number of menu Items is in MmuJM. When MenuJMd is one, then 
.\t\ odd number of menu items exist Ihe subroutine uses this informa- 
tion to calculate the number of display rows needed tor the menu 
Once ihe subroutine determines the number of screen rows, it then 
calculates Menu_Min_Riw and Mmu_MaxJtou- (see equations, lines 
135 and 140) 

Mettu_Mai_R<w is the last row of paired menu items. When 
Menu_OtUt is equal tO one. the subroutine places the odd menu item on 
the next display row (Menu _Max _Rok> t Menu_Spacf). 

The DnplayJAenu subroutine checks Menu_Mm_Rmv to deter 
mine if the menu items will til laterally on the screen. It din-- this b) 
ensuring ih.it (Menu_Min_Row - 2 > 0). When Menu_Mm_Row - 2 is 
equal to or less than zero, the subroutine invokes a runtime error and 
the program stops. It flags the problem with the message "Minimum 
row is L-ss than one " (see lines 137 i" I >9) 

Once the subroutine calculates Menu_Max Row. ii determines 
horizontal Spacing by finding the length of the largest left and right 
menu Item (see lines 141 through 145). The equations used to calculate 
ihe lateral separation is simple, but several of the constants m the 
equations may not be obvious (reference lines 149 to 153). The number 
five in the equation is the number of characters needed past the 
l.eft_l«n and Right^Len, to allow for blanks and the right pointing 
arrow for each menu item Ihe minus one keeps the column addition 
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Figure 2 



correct Menu Hems have a minimum of lour spaces between lelt and 
nghl menu columns (line 152). Once the program low determines all 
these ' ariables, II places the menu on the screen (lines 154 to 187). 
The remaining i Menu loads the army with a 

three character string which is the ASCII ordinal code for each ol the 
letters characters Por example, if A is one of theleitersScharacten, 

then the three string character loaded into sS is 065 I used this 
approach rather than numeric value to S p eed up s e lec t ion operations 

The Menu Module subroutines return one variable, Urm_Selecled, 
in the form of MenuXY where XV is the menu sequence number (like 
01, 02, 03, etc I PC* example, it Ihe user selected Ihe fourth menu item 
then Item_$elatnl would be MenuM. The programmer needs a simple 
CASE SELECT structure to control program flow alter a menu 
selection. The CASE SELECT >t rue lure i on Id loofcHke 



BILK? Ctll ItBB SmircfdS 

CUI -IMMiBl* I lift MVi ilea Mlvctad 

iptogiu iiaiNutai 

[HI -MUiOl' I •acood paou lit* HlKlM 

(progtuatalaaaatai 

CAM -HaauXT' t Iba lut Baeu Itaa aalaciabla 

l [tojr a* Mitt 

UK; SILtCT 



The module subro utin es return only valid menu Selections so 




Volume 3, Number 4 



11 









Checkbook Deposits) 





Unite a ChecKs) 


Void IransacUon(s) 


V 


Service Changed) 


Cash Oeposit(s) 


1 


Casn Rtallocation(s) 


Savingt Depositee) 


S 


Savings UithdnauaH*) 


Account Balanced) 


B 


Hold Transaction^) 


Change Checkbook 


fi 


Quit Transactions 
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The determination ot ll-m _S< I,\ t,\l in tines 228 la 
247 may confuse you The equations ol line 231 and 
239 d«'t 1 -tmiiH'//c»j_SWi',f. 1 /l(.r .ill occurrences o( 
Menu .Space, except when u Es equal to one I added 

the capabilities ol linos 2N and 237 so the subroutine 

Could handle the Special case ol Mmu .Space equal 
one. 

Between my explanations and youj study ol the 
module code, you should have a good understanding 
of how Disptay_Menu and Display Mum Select 
subroutines operate Understanding the Menu 
Column type is essential !.n understanding the 
Linear Display type. 

I call it a Linear Display type because I create one 
long string ot the menu items, then I take it apart in 
such a rnannei thai it would fit on the screen. The 
biggest difference between the Linear Display and 
Menu Columns is that keyboard selection is now ease 
sensitive I he following is a summation the process 




_ ,_,,™.biui imps ici ii hoi i it.i menu 
and lets you concentrate on content and style and not worry about the 
meticulous details of getting your -selections displayed. Once you 
understand the Menu Moduli operation, you can change the subrou- 
tines or add other subroutines for even more powerful menu Selection 
capabilities 

The hard pari is done. Dtspta\/_Menu_Select, the second subroutine 
ol the Menu Column type, handles the menu selection process. The 
CALL Buffer statement clears previous keyboard and mouse inputs 
Program flow then loops until Ihc user selects a menu item with tin- 
keyboard or by clicking on an item with the letl mouse button The 
ke> board menu selection converts lower case to upper case (line 208) 
and then compares it to a three character string in the array. When the 
user selects n valid menu Hem, the arr.iv element becomes the menu 
Item Selected II VOU press the letter A and « (3) equals 065, then 
lirm_Seli'(tfj is Menu03. 

Mouse menu is only valid when you release the left mouse button 
while the mouse pointer is over one of the menu items. The 
Displav Menu Select subroutine determines the row and column of 
the mouse click (lines 222 and 223) It then compares the Information 
to the blown rows and columns ol your menu items. When it finds I 
match, it returns ffrnf.SaVrtfli to the calling routine. 




.O.lu individual lelteis Ip nl min mi-mmi ~>\ 
• i (Ma the ordinal position ol letterslnrnl into menu(n.3V For a 

Manual, page 231, or the Amiga Student Edition Manual, page 173. 

" Build a string with menu items separated by gap number of 

ipaces 

• Take the string apart based on the lateral screen size (c_max), but 
keep menu items intact 

• Load each menu displa) row into the arrav t 

• Determine the start and end column of each menu item 

• Create | si\ character string compos,-,! or row. Marl column, and 
end column and load it into menu(n.-t) For I menu item on row 9, 
column 1(1 to 21, this value would be 091021. 

• Display the menu and highlight the letters that allow keyboard 

selection. 

1 he last example in the program listing uses the Linear Display 
type The data for IttmJkUtlal is in the subroutine LotdJvfenu_ I 
Nonce the menu items' alignment. I added spaces to some of the menu 
items so (hey would all align in three columns on the screen I he 
subroutine works properly without these spaces, but the ipaces made 
the display look better. Ihee.ij> variable establishes the minimum 
spacing between each column. The preceding menu item column 
determines where you must place spaces to align each column The 
longest menu item in the tirst column is "Checkbook DeposiKs) 
Align all the menu items in the second column with 'Write a 
(he. Ms)", which is on the Same TOW a> Checkbook Deposit!-.)." Von 
cannot reduce the spacing between "Checkbook Deposit (si and 'Write 
-is) so vou increase it tor the other second column menu Items 

l he second column menu item "Savings Withdrawal<s)" is the 
basis for the thud column spacing therefore, align the third column 

menu items with "Account Balancers)" by adding spaces to the other 
menu Items. The extra spaces have no effect on the placement ot the 
highlighted menu Hern letters The number ot spaces in the v anable 

gap has to be one space larger than the largest number ot consecutive 

spaces within your menu Hems It vou have a two word menu item 
and you use three spaces to separate the two words, then Mil must be 
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GET TRUE 32-bit WIDE, ZERO WAIT-STATE FASTRAM ACCESS! 

•PURCHASE THE MICROBOTICS M1230XA CARD FOR THE AMIGA 1200* 



MICROBOTICS 



A4000 Computer CALL 

A 1 200 Computer CALL 

A600 Computer 175 

1942 MuWiync Monitor 399 
I084S Mon«or 249 

A2630 Accelerator w/4MB 449 
AS20 Video Adapter 34 

A2088 XT Bndgecard 69 

A2091 Hard Drive & Rem 
Controller W120MB HD 269 
A2091 HO Controller 65 

2 MB Rem For 2091 80 

Janua 2 1 Update 35 

A200O/30O0 D-k Onvoe 69 9S 
A2000'300O Keyboard 59 95 

A2000/3000 Power Supply 109 
A2000 Bufool 300W PS 169 
A500 Sicfool PS 89 

E*1«m*l ca«e PS & Cables 1 25 



M1230XA ACCELERATOR MBX 1200/ COMBO BOARD 

6K030 R( 25Mhz CPU .'A-.xK. WViXiX Mm K^^OMhi IPU & wrth clock 
Different CPU, FPU & Ram Located On Far Right Column 




AMIGA CUSTOM CHIPS 



KkAatart 2 ! Upgrade Ni 
2 04 Horn (MO (Wat) 
*0ttetart13 
lM8Agn,je<9372A) 
JMBAgr .n<S372B) 
Suoe.Deni.e(e373) 
Paula (8304J Or Dervee 
CIA (8620) 
Q*y (57101 
203Or«3O Upgrade KK 
2091 Upgrade Epror-e 7 i 



OvandSam 
O*and9am500 
Trumpcard Pro 
iFj^pca/dSOOPro 
TlWIWW 500 Plu* 
I"jmpca>d 500 AI 
S0u>t4* Svaclvng 
Pawn Supply 
UawwnaiU' 



77 95 

33 95 
2t K 
37 50 
79.95 
28 »S 
18 »S 
9 50 

13 95 

36 



38? 
ISt 

-. | 

•4) 
'•A 



{ytpee r0A$rf$ 40000rsrF#$ s 




I'.HWiH.'.ffU 



A4000 Computer System 
10MBOf32BitRam 
120 MB Hard Disk Space 
Newtek Video Toaster 4000 
1084S RGB Stereo Monitor 
Basic System Only $4549 



A4000 Computer System 
18MBOf32BitRam 
460 MB Hard Disk Space 
Newtek Video Toaster 4000 
1084S RGB Stereo Monitor 
Advanced System Only $5349 



HARD DRIVES 



Warrant!. a 
Quanlum-2 Yeare 
Maxtor- 1 Yevar 
Maxtor 120 LPS SCSWDE 199 
Maxtor 170 LPS IDE 229 

Maxtor 213 LPS SCSI/IDE 266 
Maxtor 245 LPS SCSI/IDE 285 
Maxtor 346 IDE 366 

Quantum 85 (Low Prollla) 185 
Quantum 105 PDrive HH 199 
Quantum 127 ELS 209 

Quantum 245 LPS SCSI-2 295 
Quantum 626 LPS 10MS 699 
Quantum 1.2 Gig 6 YR 1199 
Toihlba1.2Glg5YR ,199 



A 1 200,600 Marfl Drives 



8SU Conner I Seagale 621 S 

130U Comer / Maxtor S315 

236MS Seagate ' Toehtoa 6*49 



MEMORY CHIPS 



All Speede Ava-leble Call H Mo( Mara 
32 00 
129 00 
1*50 
17.50 
10.95 
3.26 
4.00 
400 
■ : 1 
76.00 



61030 a 32 BK Wot 
HanForTntA5O0V2000l 



VXL * 30 ACCELERATOR 

(yxi3j > 25 4MMUMhz$l85 40EC Mhz$275 33 Mhz & HMU S299( m32RA^ )2HB $219 
WA58882 25FPUS235 w/FPU S390 w/FPU S385 8MBS589 




7W 



DPS PereonaJ 

DPS PeraonM IBC <V 

DPS Pt<aona! Anenaiion 

(><-.; l'..«:-i Corrooer-" 

DPS Pereonej V Soopa 

Ktcnen Syrc 

Op*] VbO" 2 

DCTVWTSC 
Ret.r-a w?MB 
Reirva wUU6 
V\ao-J4fti Dot.rer 
Scaia2iOMM 
Deluxe Paxil IV AOA 
Moron Pfcja 
M mtitr — Pre 
Puei 30 Prolaaaional 

Video Director 

Calgarl24 
Alaoanao 
VOee Toaaiar 3 Upgrade 



AdIDE 40 UB HD lyll.m lor 

Amiga 900 Sy atom 

AolOt •OUBMOSyatamlor 



675 
799 

1599 
SM 
999 

1199 
Mi. 
274 
479 
|4| 

3'» 

:■>> 
■ If 

14* 

in 

140 

>?9 

n 

249 



A50O-HD8'0MBV52O 

A50O-HD8-0MBJ85Q 

A50O-HD8-0MEU12OM 

A5OO-HD8-0MB/245Q 

A530-HD8'1/120M 

A530-HD8»1/245O 

A2000-HC6-OMB 

SIMM3271MB/60na 

SIMM3Z'4MB/60na 

1M8S0V1MGForeeA3OOO 179 

G- Loch Go mock 385 

A300O-lmp*ictVUIon24 1199 

A2000- IV24 Adapter 55 

V1U-CT 499 



275 
329 

m 

435 
545 
MS 

149 
69.95 
CALL 



A1230 Turbo* 40740/4 6549.00 

A 1200 SCSI /RAM* $375 00 

GForet Acs iterator* ■'•ICM.6U12. 

Mm RAM, SCSI Controller, 

BAM Card in Oni 

40Mhz/4M8 575 

68040 33Mtu- A20O0/4MB 975 



uvp unoio/ 

r.M"".' .IIM/ 
4MB'60na HAM 

w/XJCGt G«*r»trollor 



PC286 Module 16MM 69 

T0hiu.|| iGB(35me) 3100 
Tahiti- II 1GB Cartridge 289 
Syque*t 44MB Removable 259 
Imago F/X Upgrada 29 

Syquest 88MB Romovablo 365 
Impact Villon 2.0 Updata 1 19 
68882 40Mhz FPU PLCC 129 
FaaailROM Kit (For HDs) 3$ 
Cinomorph Software 55 

Phonepak VFX 289 

0SS8* Sound Sampler 9ft 
LO Extender (2Ser)a*>ort) 9ft 
Image F/X 19ft 



1x4 100-aOna SIMMS 

4>S 90 -60r» SIMMS 

1*4 80-eOna Sialic ZIP 

U4 6O-00na Papa 2JP 

irtBO-SOm Page 00? 

Hi i2O-70na09P 

2S6X4 12080r-j D0? 

268X4 120-aOnaZr 

266x32 1 1 MB Stmm 72PM 

612X32 (2MB &mm 72fV) 

M32 amma (MoooorcaEic) 139 oo 

2x32 Sxr-ra (All Soaada) 200-00 

4132 SVnrra Una Sptedaj 600.00 

8«32S»rmB/AIISpaadaj CALL 

Plaaaa C«» Batora OrOarlng. Ham 

C<i"g** For Bat1»r Or Worn 



MATH CHIPS. CPU* 4FPU • 



•6030 BC-M wJUMU Ml 

0SM2-RC-5O (POA1 136-96 

06OMHC 33 -i*U 120-00 

0M82-BC-33 (PQA) 9^ M 

86030 RC-25 w/UUX) 90.00 

•M62-HC-26 (PQA) 75 00 

W03OFN PtCC (Vanoua) CAU 

00842-FN PICC (Vanoua) CAll 

90M 7 ?bSX (andjecarOa) 00.95 

Cr*atalQicnaioni(A.t NM 



AfiOQWOO UPGRADES 



PCMCIA 2 and 4MB 

B*ieoo*rd«oi460tC 



19TZ09 

SUM 



LASER PRINTER MEMORY 



AmioaiOOS(il.rr. 
ir Fraa V .; 




AMIGA 4000 & 3000 OWNERS 
CRUSH THE 16 MEG BARRIER 

- Add up to 120 MS ol ram ot contigueu* memory 

• Fou' airrwn aotkrla uimj mdustry at and are aimma 
. Craata and run in.mito" from ram on tha VI4000 

- True Zorro M 12 bit mamory board 

- Play back over 50 aaconda 0< real-time animation in 
H.Raa 

■ Record your animation at a traction ot tha eoat! 

DKB's 3128 is Only S395 



ASK ABOUT OUR ACCELERATOR, HARDDRIVE AND MEMORY UPGRADES 



UNMATCHED SYQUEST PRICESTA2386 Bridgecard Owners 

'■Special Upgrade Package 




/ 



to mult your ra»<njlr«m»nt«. 



HP n, HD. dp. n. mo. «* 

AND All PIUS St WES 
Board -lt< 2MB 
Board win 4MB 
Daaxjai 269K Upgrade 
HP 4 (4 Mag) 
•a?4i»Mao) 



145 0C 
66 
149 




|ra^)a< II ir/VSM RAM 

2032 «MMaoabyiaa 
MagACnip 1000/600 
-.7MB Agnue 
Mut. 3Un 2 Ftav 6A 

K.ASTan ■ tor A1000 
SecurKey Sacorly Board 
BxrD«> ban»ry Batted 
•taw BAM del 



»:■ 

Mi 
171 

20 

'.1 



44MB DRIVE (SQ555) 
88MB (SQ5110C) (R&W44) 
105MB IDE 
105MB SCSI 
44MB Cartriges 
105MB Cartriges 
External Versions Add 



$249 
S349 
S449 
S525 
S 65 
S 98 
$ 99 



Include. 00107-21 Mhr Floating Point Unit 
J«"n»?.t Updated Son-wire * * 



% *C C6>l"'Ca 9HDD 
PLOaSOFtOUFaiV 




Sunrise Industries 



ADSI6 Dtgiiiier (IIBit) HH 

AOlOIIDlgrllier (iIBn) 470 



ACCESORIES/MISC 



PowarPlaysn Joyttck 6 49 

CSA DERRINGER 25/25 399 

CSA DERRINGER 50/4 699 

CSA Rocket Launcher 499 

SupraTurbo 26Mhr 149 

Saieskm Protoctom 15 00 

Xlraclor- Ch* Pulet 985 
Sanoahol angle A2O00 

llot Tor the A500 3995 

Slnfl0hotPro 69 91: 

Kootlt Cooing kit A50O 3995 



Qw*a Swilchj 
ROW selector 
Power Conneclori 
SCSI HD Cabin 



locKatvd 



39 95 
CALL 
CALL 




18 Wellington Drive 
Newark, DE. 19702 
578-7617 ORDERS ONLY 
836-4138 PRODUCT Info/Tech 
836-8829 Fax 24 HOURS 



Please Understand Our Policies 



VlSA/MAMHtCMjAcoriaed. F>™ And SpeofKalBr- Aw iuox.' 

To n^ngt W.ihoui Notioi! IS* lt«io<k.B| Fee On All Km™ 

D.f.iii.c Meichandlac Will Be RrpUccd Wilh Stmt Ilea 

Call WLTU>.414Moi Approval BMAJ Befae Raiuwau; M lf d W fur 
MrnhuidiM No Reruiai Afur 10 D*y From Deli>en> P4ie. 
Noi Raipoaiibla For laeomaaiibilii} Of Product! 
Saippini And Haadliaa For Calpi It U COD Faa 14 
Poruoal Oiock* Rc<a>aa 10 Wo.lm» D.yiToCtaar CD Fo. Actual 

S h.jTJ-a Pn.eiOn AllOOmr lieire farn Pr-n < Wy »wt To »i«i 




.it least four spaces 

ro demonstrate the Menu Module us,-. I've included four 
representative menus. Figures : through 5 are exantplcj oi the menu 
displays In eat h of the figures, the upper left hand corner represents 
the returned timjdteied variable The displayed Item_Sfin ttJ is i 
Visual feedback of the menu item selected. I provided Several different 
methods of loading the rfarra) for your review. nieMaiu 

Module will save nme and effort when you design menu selections i..i 
your programs written in True BASIC. 




Menus would be -self centerm* (hon/ontally and vert>cally) 

Use module si IARI .i variables to reduce p.is,m,; variables to and 

trom subroutines 

Menu items would be selectable from the keyboard (single 

character) and by using the mouse b> clicking on a menu 

selection 

The returned v slue Irom the menu selection subroutine* should 
be a logical and consistent format and not be dependent on the 
menu items 

The programmer supplies the menu items and the single 

characters used by the menu subroutines. 

Menu construction and display should be reasonably fast 




True BASIC Menu Module 
. .idt 1993 by T. Do: -rook 

DECLARE HJuLIC c_max 

DAT; "Menu 2* 

.... 

.•-'M<>nu_Li9t$ 

• 1234567- 

: forever loop 

:. Display _Menu<Henu_Li3ts. let ters$» 
CALL. 
SET c 

■ ■ 

■ nuOV- then EXIT DO 
LOOP 

i ase_Menu 
menu 






- ckbook Deposit (al 
;d Transact i or. 
- a in Deposit (s|- 
ivmgs Deposit |b»" 
ijunt BalancetB)" 
DATA 'Change Check* 

ilS<6.2) 

■ 
upper /lower m* 

LETMI ■ ect. or left mouse to select 



■ 
.-•*■■ 

'.locat ionis) " 
. "Savings Withdrawal <s> " 
•Hold ■ LontBj" 

■ 



example of mixed 



...... „_.._,. ,. 

.yjsarwmsnu.. 

CALL: 
SET colo: 
SET cursoi 
■ ■ 

■ then EXIT DO 
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LOOP 

CALL Erase jlenu 

CALL Load Jtenu I Menu _ 

i. edS) 

- 
PRINT Si 

■:TDO 



- 

cersSl 

CO 
CALLI >i_Select <Item_SeIectedS) 

SET color J 
SET curse: 
PRINT Iten 
IE Item_SPk'( 
LOOP 



EXTERNA! 

SUB Load_Henu tarrayS (, ) .aSt 
DECLARE PUBLIC c 
DATA "Menu 3 ■ . -Menu 2" 
DATA "Menu ' ' 
DATA ■' ■ -'::'• 

DATA 'Menu 7-,- 
MAT arrays -- mil $ (4,21 

U> arrays 
LET aS ■ "ABCDEFG" 
sel^ 1 ' 

■ - - 3 Menu 
■ ■ ' 
CALL Change_M"r. . 
END SUB 

SUBLoadJtenu_l larraySl, ).aSl 

■ •■:■■;■ | 

■'•'!. harge Is) " . 

i Lon(s)", '• 

DAIA " 

, * 
DA". LCtlOXl Is) ' 

Quit : 



to I ' 



lower case 

Menu_SHARElKH! 
END SUB 

SUBB'.' 

SET cursor "OFF" 
DO 

GET MOUSfc 



: demo to change 1' 
Selcctio'. ' ' -. 

,3.5,1, . 

l.Mv 

jiied c_awsx 

'.--.-:■■.•. hecMs)","". 

" ■ . " Cash Depoc U .■'.". 
. " ' S ivmgs 

■ -yxxik"."'. 



. ■ ■■ 
■ 

Menu_l ' 



■ 

<ey input 

■ ■" " 



Workbench 2 

Available Now! 

HraMnat MoOuli : hi. loaf bra> nxi-jnunl » U* (RiMr 
- i|i-«t iWMliipmrw ci»in«n*iu fof IM »mi<i cimthbai 
iht l«n loci nut hue micu ol C "ith *( rraUNlB) and wh* 
ofa*rtifTBrtX>P* <,ul ifwii«ntni»«i 

Iwan rj* |.mci ..I Wuittcikh : i« " i.uliMr H 

■aBbaark Modnb-1 pnwMnMtn 

!■«■■• (UH)I*>1 ■ ■ -iicnli-xt Iniuilnifi AM. >IM»J»ll 

II 1 1 M.lh II Vfant CM) 111- KCC* «"l nunj 
"""I* Prn™« 

fmfaiutt » B2 ollm it* pD"*f ol dfli libra, mib n 
--m S*"li 1 1* iw >(inul inuufeattor)' pre* "I < ml. il T' 
Wi'if i4lf>Mf>(nuJ<liii<wMtoaitffmkiK>ll<etli«u>fcf« 
UhrrMouWi :ii«n Cili<«wnufara*fK*<*»lcf 

" ■ 

Armadillo Computing 

' ' > v ■•inug* llnvi. Autiin Urn " n .'' 

IV>o..l I) teO »IX |««inpi 






END IF 
LOOP 
END SUB 



max . c_max 
irreen 
Hi 



I get mouse input 
key input then EXIT SUB 



! end of "B 

! max row and column of 
! end of 'Global* 

■ ■ 






mus 

r r_max . 



SHARE . ol_3.col_4, 

SHAREMenj.rcrjT .M*>nuJ>! . "'ftij.\m» ' 

SHARE Henu_K- ix .':■ _Slzc 

SHARE Her.-.. -jQ_pW\ - Co:or.row_used.gap 

■ 
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■ ■ ■ - .■■ 

Ienu_5pace 
1 1 am 

LET Menu_Pen_Colo: 
ingmer.u 

LET Menu_Ai row_Co . 
(Display _Kenu_Select) os 
LET Ksg_Pen_Color ■ 2 
■ 



►toy or use mouse - • 
! 1 ines between menu 

! color uned for pi 

! arrows 
int. color (Linear_Select ) 
i color used for 



! spat 






LETErase_LineS ■ repeats 1" ".c_max) 
IFlen(Kenu_Header$) > c_jnax thenCAI 
•Menu_HeaderS character lengt I 



7L- FY^i' 



'n new 104, 



SUBDisplay_Nenu(Menu_Llst$<.l.lettersS) 
LET Henu_Si^e < size (Keii^ 

LET Menu_Elements = lei i total • of 

. ' 

- . • Hen . 
how many menu pairs there are 

LETMenu_Odd ■ remainder (Mcnu.Elements. . .r.di- 

cates an odd row in array 

LETMenu_Min_Row = intl(r_max - (iKenu^Const • 
Menu_OddJ * Menu_Space - Kenu_Spa ■•• - - 
LET lettersS = trim$ (ucaseS lie'. I 
IF Henu_Hin_Row-2 < 1 then ! : 
screen 

CAUSE EXCEPTION 100. "Minimum row is lesB than 
one." 

en:. 

LET Menu_Max_Row > Henu_Const • Meou.Space . 
Henu_Hin_Row - Henu_Space 

LET Left_Len. Right_Len ■ 
FOR n=l to Menu_Size 
and Right menu items 

>-n(Menu_ListS(n. 1)) >Le*r_L*r. 
Left_Len = len<Henu_List$<n, 1) ) 

<?n(Her.u_Li5tS(n.. 
Right_L« ■ .2) ) 

NEX: 
! 

: calc ■ print co] 

LETcol.l -- intl(e_ma>: .10- 

4)1/3) 

IF col_l < 1 then CAUSE ERROR 101 
■ '..■. * 

LET col_2 i col_ 

LET col_3 i col_2 . col_l • ; ! allow I 

blanks between left and • 




LET CO 

• 
SET ci. 

H 

or n,col_2 

■ 

■ . 

ide 

SET cursor n.col_4 

■ ■ ■ 

"• *_Color 



■ 

: ty counter 

■ "■ 
mow step Kenu_Space 
I 

description. 



! menu le: I 



| r. ion. 



ol_2-3 
left side 

■ >- 
SET cursor n,col_4-3 

PR;: - ■ 
LET 

■ 



irrow 
! set to print arrow 
! letters 1 1 cot 



sizetMenu_ListS.l) 

■ ■ 

■ 

tion 

■ 



ix row 



sl_l 

•y nenu descrip- 



■ 



■ 



..Space. col_2-3 ! 

■ 

■ 
en; 
.... 

" i 
SET cursor Henu_H;n_- 
■nu_Header$l > . ■ 

MAT x$ - nul$(Menu_Stze,2> 
LET h 
counter 



: end of 'IF Menu_Odd » 



■ 
point 



■ 



■ 

: then LET x$ln,21 = 

. . . 

■ ■ 
: n 
LET row_used 

hen LET n - _Max_Row • 

SUB rid of *Display_Menu- 

tedS) 

. then 

~.os as yo . 
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CALL 
DO 

■ 
GET KEY a ! get keybr-.< 

■ 

' ■ ■ 






' 






■ . 

nu- h 
rSClV.n" vcted 

EXIT sua 

■ 



■ 
■ 



:f stat 

r_n»» 

■' 
jace 

IF row • n then 

IF row >= Menu " : ow k 

::;ed then 

col_2 
then 

IFK>: l then 

>*1 case lor Monu_Space 

■ ■ 
'JsingSCI*- 

usingSfl** .- 

SUB 
ELSEIF col >= col_3 and col = -> 
col_4 then 

■ 
■ 
■ 

i*gS<"%%*. 

. 
Li." 

■ ■ ■■. 

:..:.■. .1|-2| 



Menu_Odd <> 1 then 

■ ■ 

■ 
- . ■ 

Henu_Space>.l)"2-2> 

■ 
"Menu- tusingS !"»»". lint ((row 

■ ■ 






coll ai .... 



■ 

<-ol > ; 

row >-- 









LOOP 



FOR loop 

END if 

I end of ' nput 



; end ol 



■ ■ ' 
DIM t 

I enough to 
! 

■ .. > .i san . 

-• 

■ 

i menu$ 

FOR nzl to Menu_Si« 

n menu 
Cons 

LET menu$in.2) = letteraS |n:nl ! load in 

letter 

LET menu: ■ ■ :s:nl ) I 

* load . 

" ".gapl & 
arrayStn. ! 
NEXT n 

! 
! find the rows, and coll. and col2 

LET h 

counter 

load ' ■ 



■'-> tS(l 
strings apart and 



• .ngSIl 
LET max_' ! remember how many 

loaded into »$() 
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MM Memory 
Management, Inc. 

Amiga Service 
Specialists 

Over four years experience! 

Commodore authorized full 

service center. Low flat rate plus 

parts. Complete in-shop inventory. 

Memory Management, Inc. 

396 Washington Street 

Wellesley. MA 02181 

(617)237 6846 



■ 

■ :■ 
■ 

1 x 

menu s< 

LET string ngst I 

■ 
LET - nc cSI) counter 

■ 

■ 
screen 

■ 

Menu_i"', 

■ ■ ■ 
find the w 

! compute the rov 




.Row 

■ 



'-■n row 
i ever 



01 



■ 

menus (n. 
up to next word 

LET - ■*•. row) U 

• ■ 

! inc array counter 
DO 
ELSE x 

... . Step now: ' 

menu row 

LET - 

N 
LOOP 

! 



counter 



alize 



LET k 



■ 



! on the row. i . 

■ 
- t v pass the Lnit ;ul 



lOI Ms J. . 

■ 

: 

FOR n vnu_Max_Row step Menu_Space 

•■.'."' 

SET cursor i. 

: tstk) 
LET start = qap*l 
-gap- sp. - j- 

. ■ ■ ' 

.^enuSO-' - 
■ 

|in back one 

■ ■ 

■ 
FOB ! ex. loop 

IF 

' " ■ : 

. -. 

11 I \,X 

pri;. ■ 

LET start » pos(tSlk) .repeats!" ".gap) ,x) 
-inks 
■ 

sec begin ;ward 
since we used ■ 



FOR 

■ 
■;: n 
END SUB 



! inc tSIl counter 
l lor loop 



t end ol ' tenu' 



! Must e»- near_Menu' before uBir.: ibrou- 

tine 
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■nenu sell 
DO 



! forever loop 

! check for key input 



ng form of 



IP key input then 
GET KEY a 
LET aS ■ ucingS("l%»",a) 
ASCII key 

FOB n = l to Henu_Size ........ 

ASCII options 

.5(n, 3) then 
LET Item_SelectedS * "Henu" £ 
usingSt'*%',n> 

EXIT SUB 
END IF 
NEXT n 
ELSE : no key input, 

for a mouse input 

GET HOUSE x,y, state 
IF state = 3 then t left oous- 

i Blessed 

LET rowS = usingSl"*%", (r_roax-round(y • 
[rjux-l)))) ! converts screen coordinates 

LET colS = usingS ("It". (1 • round (x • U 
DID ! to row and column coordinates 

LET keyS « rowS & colS k colS ! key to 
ccopare tomenuStk. 4) 

FOR n=Menu_Min_Row to Menu_Hax_Row step 
Menu_Spaee 

IF usingS("%%",n) * rowS then ! 
Ml ■'. 

FOP k ' "^nu^Size-l ! deterau:. 
coll & col2 

manuS (k-1 ,4> I 

ther. 

lusingS<-%»-.k> 

menuS{k.4) (5:61 ■• 

■ 



IF Mnu$(k.4) ■: keyS and keyS < 

! key between valui 

IF monuSlk.''., ! 
iS ik.i) range 

... 

EXIT SUB 
END IF ! end ol 'IF 



END IE" 



! end of 'IF menu$(k.4> 



NEXT k 
IF keys > m«nuS(Honu_Size,4) and 
menuSIMenu_Size. 4(15:61 > keyS!5:6] then ! selection 
within range 

LET . •, 

usingS ( ■%%■ .Menu_Size) 

EXIT SUB 
END 



r FOR 
END IF 
usingS<"M".n) .... 
NEXT n 
END IF 



END IF 



! exit n Eoi structure 
: en i 



! end * ate 

! end of ' IF key input 



LOOP 

END SUB 

•Linear J*enu_Select ' 

SUB 

Change_Menu_SHARE | KHS . MS. HFC. MAC . Kegj 

! 



J forever loop 
! end of 



Jt) 



change module SHAREd variables 

nax then LET Erasie_Line_Len s 

...■n(HHS) > c_max-l then CAUSE EXCEPTION 103, 
'i of HNS to large." 
. .Headers * MHS 
..space * MS 
LET Menu_Pen_Color = MPC 
LET Henu_Arrow_Color » MAC 
LET Hsg_Pen_Color ■ Msg_PC 

LETErase_LineS = repeats (• ", Erase_Line_Len) 
gap * gap_Ch 
END SUB ! end of 

' Change_Menu_SHARE ' 

SUB Erase_Kenu 
: 
! use only after calling ' Display _Menu' or 
' Linear J*enu_Select * 
: 
SET cursor Monu_Min_Row-2. 1 

PRINT Erase_LineS 1 erase Menu_HeaderS 

FORn=Menu_Mm_Row to row_used stepHenu_Space 
SET cursor n. 1 
PRINT Erase_Liii(;$ 
NEXT n 
END SUB i ,>se_Kenu' 

END MODULE ! end of 'Henus' 







Complete source code and 

execulables can be found on the 

AC'S TECH disk. 

Please write to: 
T. Darrel Westbrook 

c/o AC'S TECH 

P.O. Box 2140 
Fall River, MA 02722 
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Introduction 

l hV AmigaDOS AnimOb structure contains several numeric 
fields used to product animation quickly Ihese Melds us*- what Ihe 
Apfiga ROM torn refers to as 'Animations special 

Numbering System " Two thing* nuke this numbering system special 

the format ot the numbers and Ihe Operations perlormed on them. This 
papet d is cus s e s and generalizes this numbering system After you 
have read it, you should be able lo 



Time-Efficient 



1. Understand how this numbering system is related to the continuous 

lineal equations and continuous quadratic equations taught in most 

algebra COUCWS 

2 C hOoSe numbers and Operations to cause desired animation effects 

with or without using the AnimOb Structun 

!1 Lxtend these operations to periodic (unctions. 

4. Construct tables for periodic functions, and use these tables lo 

produce animation 

iliis paper is not written tor mathematicians. The mathematii i \s 

developed intuitivek \\ ill-known identities are gnen without proof. 
An Amiga programmer with an understanding of algebra should be 
able to apply these techniques to her programs 

ihe paper coven 

! A i.-\ lew of lixed-point numbers and some operations performed on 
mem 

2 A discussion ol Ihe equations used to change an attribute o! an 
obieel at .i constant rate I hese are linear equations 

3 \ d isc u s sion of the equations used to change an attribute of an 
object at o rati- of change that changes at a constant rate These are 
quadratic equation". 

4. A review of Certain trigonometric functions and identities. A method 
is developed for rotating objects by building a table and retrieving 

values From Ihe table. 

5) A discussion of periodic functions and the domains of these 
functions 

6) A discussion ot the software foe this article which is included on 

rECHDiSk 

Fixed-Point Numbers 

Fixed-point binary numbers are of the form ln,..IOpFI . Tm where 
the Is make up the integer part, p is Ihe radix (binary) point, and Ihe Fs 
form the fractional part of the number [here is a fixed, predetermined 
number ot digits on either side ol the radix point Ihe programmer 
knows where Ihe radix point lies II ihere are no F's in Ihe number, 
then the Rxed-poinl binary number is ,m integer 

Although any number of bits and rep r e sen tation (2s complement, 
sign magnitude. Is complement) may be used lo represent fixed-point 
binary numbers on ihe Amiga computer, they are r epr e sen ted most 
naturally .is signed characters, short integers, integers, or long Integers. 

Fixed*pOin1 numbers may be used in applications thai don't 
require "floating* radix point and don't require very large or very- 
small numbers Software which produces animation is an example of 
SUCh an application It fact, the velocih heldsand acceleration fields in 
the Amiga's AnimOb Structure are defined as WORP's. but Ihe) are 
really lixed-point binary number with six digits lo the right of Ihe 
radix point 



Mathematical 



Algorithms 



For 



Producing 



Animation 



by Robvrt Galka 



Volume 3, Number 4 



21 



Table 1 bdow shows the relationship between real numbers and a 
certain fixed-point representation of them. Notice thai fixed-point 
numbers may introduce round-off errors, overflow and underflow It 
is important to pick the si/e of the fixed-point number representation 
and thenumberoffraction.il bits so that these problems don't occur in 
your application. In Table 1, the fixed-point numbers are 8-bits long 
with 3 bits to the right of the radix point 



Mi 



TAIL! I 

flxad-polnt 



i.e 
i-i 
-1.0 
i.iu 
1.1 

4.S 



I.0M1 



100 



mil 



00001 001 

caisc tM 



NMJ cc: 



111 MDll 

1 1 Mated) 

towno-i 

(onrrion) 

luster Il»> 



lot) 



Some facts about operations on fixed-point numbers are: 

t. Two fixed-point numbers may be added using integer addition 

provided they have the bum number of digits to the right of the radix 

point 

2. Two fixed-point numbers may be subtracted using integer subtrac- 
tion provided they have the same number of digits to the right of the 
radix point. 

3. If A is a fixed-point number with n digits to the right of the radix 
point, and B is a fixed-point number with m digits to the right of the 
radix point, then C = A'B is a lixed-point number with n+m digits to 
the right of the radix point 

The programs contained on the distribution diskette use fixed- 
point numbers and the algorithms developed below fo produce 

animation quickly on the Amiga computer. 



Equation |1 ) is perfectly general in the sense that for any value of t, the 
value L(t) may be computed directly lor example, if MO = lO't+7. 
then Lf.15) = 10*1.5+7 * 22. It is not necessary to keep a history of 
previously-computed values of L(t> to compute future v alues of L(0. 
Equation 1 1 1 requires one addition and one multiplication to compute 
1(1) for any t. Multiplication is .i time-intensive operation on the Amiga 
computer Without considering the various addressing modes of the 
68000 processor, the Motorola M6S000 Programmer* Refereme Manual 
shows that a long word ADD instruction lakes about six clock cycles, 
while the MULS instruction takes about 70 clock cy , . ■ 

It t is restricted to values of the form 10 plus non-negative integers 
( 10, t0- 1 , t0.2, t0+3, ...), and Ut) is computed before L(t. I ) is com- 
puted, another function. RL (Recursive Linear), and a constant, 
DeltaRL, may be used to compute L(t) over this restricted domain Kl. 
is more efficient than L in the sense it uses a single addition and a 
previously computed value to compute RL(t*l>. 

Rl and I A-ltaRL are defined in terms of the coefficients of L(t) ■ 
b*t-cand to as follows: 



Mlltll, . B. It) 

W.10I • b*t0 . c • LttOI. 

It t la a Doa-aagatlta Ibi-o.i Own 

■XCl.ll - Dalta4L.tI.lt> 

■ota that KM Oil ■ DaltauL • Wit) 

■ DaltabL'J . tUt-ll 

• DaltaJL*) . KMt-JI 

• tWltaW.-it.il . U.IQ) 
- b'U-11 • b-10 - e 

• b(tO.t.l) . c 

• MtO.fll 



So, RL and DeltaRL may be used to compute L(t| for 1 - tt). 10+ 1, tO+2. 
10+3,.- 



linear Equations 

If an attribute of an object changes .il a constant rate, then that 
attribute may be described by the function L defined by the equation 



Lit) • lo'Ii 



ill 



where b is the rale of change and c is L(0>. The independent variable, t, 
represents time. Time may be expressed in any convenient units such 
as seconds, years, or video trames. L(t> is dependent on t and repre- 
sents the attribute. L(0 may be measured in units such as feel, radians, 
pixels, or kilolu-rt/ 

If the points I(t, L(t)> I t is a real number) are plotted, the resull is 
.i straight line. The values of the constants, b and c, may be determined 
from two points on the line, or by one point on the line and the rate of 
change, or slope, of the line. 

If two points. (tO, !.(K>» and (tn, L<tn)) are known, then 



b» (LIUD-MtOH / Itn-tO) (]] 

c • (.(tO! - lb»Mi 



if one point, (tO, L(t0)), and the rate of change, r, are known, then 



b - r ()| 

e - mo* - ib«tot 



Quadratic Equations 

If the rate of change of an attribute of an object changes at a 
constant rate, then that attribute may be described by the function Q 
defined by the quadratic equation 



QUI 



a't*t • B't 

l«*l • bl't 



[S] 



where | is not zero and is proportional to the rate of change of the rate 
of change of the attribute, b is the rate of change of the attribute at t -0. 
and c is the value of Q(0). The independent variable, t. NpKSCfltB time 
Q(t| is dependent on t and represents the attribute 

When the points |(t, Q|t)) 1 1 is .1 real numberl are plotted, the 
result is a parabola. The values of the constants a, b, and c may be 
determined from three points on the parabola or by two points on the 
parabola and the slope, or tirst derivative, M any point on the parabola 

If three points, «0, Q(t0)). (tm, Q(tm», and (tn. Q(in)) are known, 
then 

a > I HOItBi-Oitan / (ta-ta)) - (1) 

I tOiui-OltOi) / <ta-t0t> ) / ita-tOi 

b - Hattai-Qtteii i <t»-toni • u • iu-hh 

e - flitOi - ca'iO . bl'tO 
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If two points, (tO, Q(tO)) and (tn, Q(tn)). and the slope, Vm. of any 
point, (tm, Q(tm)), ate known, then 



So. RQ. DeltaRQ and Delta2RQ may he used to compute Q(t) for t « HI 
tO-l.to-: 



■ ■ IIOItBt-QltOII - <V»MtB-tOIH / HtB.tO- l*ta) a (IB-lOl I [II 

b ■ *■ • )'■•!■ 

C • QUO) • (••tO . bl • tO 

I qiuHom |<>] an 1 perfectly general in the sense that tor any value »»♦ t 
the value Q(t) may bo computed directly It is not necessary to store a 
history of previously computed values ol Q(l) to compute future 
values of Q{1). The last expression in [l>\ requires two additions and 
two multiplication to compute Q(t) for any value of t. 

If t is restricted to v .ilues of the form tO plus non-negative inb 
(tO, KM, t0»2. tO»-V .), and two values related to Q(t) are compute 
before 0(1*1) is computed, two other functions, RQ (Recursive 
Quadratic) and DeltaRQ, and one constant, Delta2RQ, may be used to 
compute Q(l) over the restricted domain. These are more efficient than 
Qin the sense that they use two additions and previously compuUsJ 
values, RQ(t) and DeltaRQ(t), to compute KQ(t*l). 

RQ, DcltaRQ, and, Delta2RQ. are defined is terms ol the 
coefficients of Q(t) = a'ft . b't • c and tO as follows 



DaltJ 



[•] 



DaltaftQtOI • ••(I'tO-l) • b 

if I is a non-negative integer (hen 

311.1) . DeKaRQltl . DtltalftO 



•Hi 



MOiOi • ••tO'iO • b'lO • e - 0(t0> 
if I is a non-negative integer then 

■0(1.11 ■ *0(t.. Dalta»Oit.lP 



Quick Sine and Cosine Functions 

The sine function and the cosine function are used to rotate 
ob|ects II (v y) is a point in a Cartesian coordinate svslem. the 
formulae to rotate it r radians about the origin are 



raair) - y'aiBiri 
•Ibiri • v'c°«tn 
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It r is positive, the point is rotated counterclockwise. Otherwise il is 
rotated clockwise. 

The usual software implementation ol these functions is 

expensive In the sense thai il requires one of more multiplications and 

additions to compute the sine or cosine of any angle. In tins section, 
two new functions Qsin (quick sine) and Qcos (quick cosine) are 
defined. These new function ire related to the sine and cosine, but 
their domain is the set of integers and their period is an integral power 
of two Ihis makes it easy to construct a table ot values and look up the 
values of Qsin(t) and QcosO) in that table. 

Below are some important trigonometric identities. These 
identities will be used later to find the values of Qsin and Qcos in a 
table of length one fourth the period of Qsin 



I HI 



eoai.i • itBirt/1 - ri 


■ lain 


• lain • Il 


coKlrl 


■ inn - n/ii 


■tatrl 


-■lair - m 


m*ltl 


-alnU'M/1 - rl 


bIbID 


-alatl*n - ri 


coa ( ■ 1 


■ u. ■ - )*nm 



To convince the reader that Q(t) is being computed for t - tO, K)»l, 
rO-2,. . we will compute a few values of RQ(t) and see a pattern 
emerge. Using the pattern, we'll write a closed expression 'or RQ(t) 
and show that it is equal toQ(tO-t). The mathematicallv sophisticated 
reader my want to use mathematical induction to prove this to herself. 
Il should be clear from the definition of DeltaRQ that 

DaltaKOUl ■ DaltaKQiO) • t'DaltalRQ 
for all non-negative integers t 

Using this fact we have 



■0 :■- 



e'to'to. • b'tC 



KOI 11 • KQIOI • DaltaKOUl 

- KQlCl . DaltaKQiO) • DaltalKO 

■0(11 ■ KQlli • DaltaKQill 

• KQiOl . DaltaKQiO! • 

• KQISI • 1-DaliaKOIQ) 

rQI)I . ■QUI • MlttlOIII 

• KQfOI ' J'DallalUKOI 
■ tQIOI . J'DaltmO.O) 

RQ(al ■ KQIOI • ••DallaKQIOl 



DaltalKO • DallaKQIOl 

■ I'Dalt.JKO 



.•:-■.'.... 



I'DamiKQ - 

••DaltaJKQ 

10-DallaJKQ 



tWltafQ«» ' ■•tMUalM) 



The pattern we see i> 



■OKI . KQIOl . fDaltaKQIOl ■ ( (I* |i.| 1 1 II l'Dali«l»0 

■ U'tO'lO • b'lO . c» . UMlUO-ll.bl'l • 1'K'Mt'lt.lll/II 

• (••(OHO • b'*0 • c) • (]*K*lt*f -a't • b*t> • le't't • a'tl 

• ••ItOUO • 1U0*1 - i*t - t - tl • b'ltO-tl • e 

• ■•ItO.tl'ltO.tt • b*lt0*t> i c 

• Ql(0*t| 



Now. define a constant FPPI (Fixed I'oint I'D and (he two functions 
Qsin and QcOfl as follows 

ITI'I • 2*"\ fot Mime positive integer N. The value of N depends on 
the resolution desired. 

1 oi integer values t, define Qsin(t) and Qcos(t) as follows'. 



OalBltl . ainli 
Qcoalt) • toed 



i(j*ni/ij*rrrini 
ii3*>i>/ii*rm)ii 



l»| 



Qsin and Qcos are like the sine and cosine fuiMtions with (heir domain 
restricted U> increments of (2'PI) / (2'FPPU radians The period of Qsin 
and QCOS ls -'I I'l'l. and the domain is ihe >,-t of integers 

The following identities hold because the equivalent identities 
[121 hold for the trigonometric functions used to define Qsin and Qcos 



Ocoatti • QaiDirrrii] - i) lit) 

OalBtti • oainirrri - n 

Qeoaiti • -Qaiait - nnill 

0«iBi[i - -Qaintt - mil 

ocoaiii • -o«iB()'r>ri/J - t] 

Cainm • -Oalail'rm • tl 

Qeoaiti ■ Qalnit - l*r»n/Ii 



Identities [141 an- "sod in algorithm |15| below to find the valued 
Qsmit) or QcosO) in a table of size (FPPI/2) + 1. 

Create a table. Qsinlable. of length (HPIM/2)-]. and store Qsin(t) 
in Qsinlable|tj. Depending on your application, the values stored in 
the table may be floating point values or fixed point values 
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Algorithm |151 below find* Q*ln(i) and Qcosfi) in QsinTable foi 
values of I equal loot greater iii.uui.ukI less than 2'1 PPI. In (he nexl 
section, it is shown that this restriction on the values ol lis a reason 
able restriction 

Qsin and Qcos Table Lookup Algorithm 



mi 



If ( I <• FFtl I 

( 

OalBIti • Qt, 

Qcoalti • OaiBT>b',i in: . 

■ !•• 

I 

if i i «. nn i 
( 
OalBltl • c*iftT*M*|rriM ■ i] 

Qcoiiti • -Q«lnT«bl»![ F»ri/ii 
I 



ii ( i -. frrri/> , 



OtlB(l) ■ -QalBTabUlt . tttii 

Qcoalil • -QaiaTab!a|)<misJ • i| 



Horn |16]i*a rune effirii nl algorithm which varies the Input of a 
periodic (unction linear!) and restricts the value ol the input between 
zero and the period ol the lum tion Ii the domain oi (he periodit 
function is a subset ol integers or fixed-pomi numbers, then il is easy 
to use a table to determine Ihi Fthe function Peril) few any i 

Ii the domain ol : the function RQshown in |9J, 

then define two new Functions RQPand DellaRQP, and a constant 
Delb)2RQT as follows 

DaltaPO* (Oi • DaltaigfOi tod p 

II i Isa non-r* gerand DeltaRQP(t)+DeltaZRQP < p then 

Dalta*o>u>i> • t»ita*gr-<ti.Daita»or 

it i isa tion-negatrveintegei and DeitaRQP<t)+Dclta2RQP » pthen 

MluaoriKH ■ DaltalQI n-rwliaJW - p 



(Miaiti . o.inT.btalJ'tfH - il 

Ocoatll • -0HBT.M.1- - I'fWI/Jl 



Periodic Functions 

A non-constant function. Per, i function if men 

a constant cm the domain of Per such that Pert;*) a ! all tin 

the domain of Per The smallest such numbci p, b called the period ol 
Per. Ii follows it, .in ihc definition ol periodic function thai Per<l 
IVr(t*i*p) for every integer I Examples ol periodk functions an? sine, 
cosine, sawtooth, triangle, and square h 

An attribute of an object ma) be changed by opplyinu a p 
■unction to thai attribute and modlfj ing Ihi input ol the pi 
function In this section, functions Rl P (Recursive I Eneai i 
RQP (Recursive Quadratk Periodic), which vary Ihe input ol periodic 
hwctions, are derived Kl Pis derived from Rl RQP is derived from 
RQ. tneoutpul (range) ol these new functions is always equal looi 
greater than zero and less than the period ol theperiodii function, RLP 
is derived rir-l 

Let Per be i periodic function with pci pom- that the 

domain (input) oi Per is the range (output) ol Ihe (unction Rl shown In 

|4| I vim.- anew function 1*1 Pand aconstanl ivit.iKl Pas follows 



DallU^F • DaltaU mod p 



If] 



p tlH'1 



■1*101 ■ ILItl aoi b 

it t bancm-negative integer and Rl I'tn-ivltaKl P<i 

KUr(t>l) . aum.OaltaKu 

ii t is a non-negative tntegei and Rl POHDeltaRI P pthen 

■Utfll ■ Utlti. Dalt4*L» - p 



It shctuld be clear from the definition ol Kl Pthatu ■ RLP(|)<p for all 
non-negative integers t it also follows from |K.| thai fn each non- 
negative Integer t. there is an Integet m mm h thai Kl m Kl I'm < m*p 
So, 



iftbanon-negatrveintegei and RQP{t)+ DeltaRQP(t+l) < pthen 

■ -■ ■ 

iii is a non-negative integer and RQP(t>*DeltaRQP<N !)>« ptlu-n 

I quahons[l7] isatimi ilgprithm thai varies the input ol .1 

periodic function quadraticallj and restricts the value of theinpul 
between zero and the period ol the function ti the domain of the 
periodic fur* lion tsasubset ol integers or fixed*point numbers, then it 

j louse a table lo determine Ihe value of the function Peril) for 
any l 

Software on the Distribution Diskette 

It is time to apply litis iheoi ■ al a fevt examples, The 

distribution diskette contains one . ommand hie malce-examples; three 
linker option files examplel Ink, example2.lnk, and examples Ink, 
three executable fib ample2, and example3;and six 

source till-- ,. looKc, examplel*, exampk&c, 

and cxample3 1 

Make examples isa command file thai compiles and links the 
three programs on the diskette Vei IheSAS/C Development 

m is used lo create the programs 1 se ihe AmlgaDOS execute 
ind to run make-examples from ihe CI 1 The three linkei 
files are used bj mi es to link t| 1 n Into three 

executable files The ihree executable files are described in detail 
oi Ihesourci 

Displays contains all Ihefui essary to initialize and 

i lianup a double-buffered Intuition screen The screen is MO pixels 
wide by '1" 1 pixels long Information about double-buffered screens 
may be found rn il-. muai Libraries. 

M) .Protos h contains the function prototypes tot the global 
functions in displaj 1 andtoohu \i\ protos Ji is tincluded m 
examplel , ■ ■ 

loob 1 contains a fixed point math loolkll The turn lions in tins 
file are 



NllUIUI ■ Nll»X»ltl . ■•pi . r.i IU 
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FPToLonglnt • converts d RxedVpolnl numbei loan integer by 
rounding the fixed-point nutnbci to an inli 
LonftiniToH'- converts an intern t.' .* ftxed-potnl number. 
DonbtcToFP- converts a double to a fixcd-poinl number 
Kiinoris computes KMO),DeltaRI and the* hand. 

from two points on a line. Kl (0) and I vimki inl numbers 

h and c are double Routing point numbers 
RQI iii^l'KAndVrl computes K<; Hl.ORlJ and the 

nits a, h. .>mlI , from two points and Ihe -■t>'j , «* •»! a point on a 
parabola 

RQfO). DfluRQtot. and Delta2RQ arc fixed-poinl numbers a, h and c 
are double d«..»tin>; point numbers 

Rl.l'FmZPts- compute- RLP(0}. DeltaRI P.and IhccoefRdentsbandc 
tor two points .»n a lino Ihe input to this function is N( ' I the two 
point-. It is an initial angle (H ind the 

number nt rotations, nrot, to use to move from me Initial angle lo the 
Final ancle Fhe two point- on the line are (HI " ll and (in. 
xn+2"Pt*nrot) xOand xn aredoub i numbers whose 

units .ire radians Kl.PtO) and DeltaRI Pare fixed-potnl numbers band 
, are double Boating point numbers 
IniiQsinTable - initializes a QsinTable of 1025 points 
I uokupQsinQcos - Rnds > Qsln value and a Qcoa value in the 
Qsin I able by using the algorithm in 1 1^ ■ 

InHAspcctRatta ■ computes the aspect ratio as a fixed-poinl numbei 
|hc aspect ratio is usni id convert from world coordinates lo screen 
coordinates 

QRotate - rotates i s,-t ol points, given in world coordinates, around 
the origin, converts the rotated set of points to 
translates the points In tin- \ and "i directions by an amount sp> 
by the caller of QRotate 

CompulcNexlRL computes f IhanO 

ComputeNcxiRQ ■ computes RO" lor I greater thanO 
ComputeNextRI r computes Ri PfOforl greater than 0. 

I x.impU" ! i . I'Xiinipli'? i. and exampk*3.e contain example programs 
I in- first example applies different types ol motion loan attribute ol 
simitar objects The second example applies different types ol motion 
to two attributes of an ob|e< i rhe Ihird example uses Qsin and l ' 
rotate an objeel I he examples .hi' covered in detail below 

Example 1 - Applying Different Types of Motion lo an 

Attribute of Similar Objects 

i examplel.) contains the code for the first example In this 

example, foui setsol vertical lines arc di 

horizontally^ The Hnes are drawn from left t.' rlghl For each of loi 

consecutive Frames, one line From i is drawn. A 

different function is used lo compute irn ines in each 

set 

Run the First example and watt h the lines being drawn on thr 
n In the lop row of lines, adja [ually spaced 

-.•. i linear Function RI . i- used to compute the position ol 

Ime I (near Functions cover equal distances In equal limes 
Novi look .'i the second sd of lines the lines are spaced 

together on the left side of tfw larther apart on the right 

■ peed is distance covered di\ id* d by tunc, we could say ih.H the 

lin.-s .ire moving Fastei as they are drawn from left lo nghl rhe slope 

or tust derivative, ol an equation i- the vi eel whose 



mm emcnl is described b) « !»■ ■ equation l he speed is Ihe absolute 
value oi the velocity lhc quadratic equation, Q(t), used to determine 
ihe position of each line was chosen so that the slope fsO lot '"■ The 
absolute value ol the slope Increases as t Increases U von run ihe 
program again and compare the drawing ol Ihe firsl two sets oi lines, it 
will appear that, Initially, the top set of lines is being drawn taster than 

md set, bul the drawing ol the sei ond set accelerates ami 
catches up to ihe firsl set when the last two hnes .ire drawn 

The lines in ihe third id ed dosei together on the right 

side of the screen <u^< Farthci apart on the left The quadratic equation, 
Qttj. used lo determine the position of each line was chosen to that the 
slope is The absolute value ol Ihe slope do reases as ! goes 

From Dlo Mil 

Finally, the uncs m ihe last set are spaced i loser together on the 
left and righl sides of the screen, and Further apart in ihe middle I wo 
quadratic equations* tjiiii and Q2(t), are ns.-j to determine the 

positions on tin lines in tins set [lie Iirst quadratic equation is used lo 
compute ihe position of each line on rhe left half of the screen. It has a 
-.Idp.miI .it i-0 rhe absolute value of the slope increases as t 
increases The second quadratic equation is used to compute the 
position ot each line on the right hall ol ihe screen, lis slope is Oat 
t^ltil The absolute value of the slope of O^t) decreases as the value of 
■ increases to i = mi I hi-, fourth set of lines appears lobe drawn slowlv 
at first Faster in Ihe middle* and -Km \ again on ihe righl side end of 
the screen 

Now examine the file examplel v Near the top of it. j structure 
qmath ■ ■ dx, and d2x are fields containing Rl.lt) and 

DeltaRI oi RQO), DellaRQft), and Delta2RQ Fhese values are stored 
i point numbers intx contains the rounded integer portion ol 

the value in x mtx ts used lo draw the lira reen because the 

positions) ol pixels ace given as whole numbers Ihe coefficients lor the 
continuous equations, * b"t+( and • a*t"l+b*t+< are stored in a. b, 
and c these values are not used in this program bul are included In 
case the reader wants to modify the program lo examine these values 
For real-vsoiM applications, such as games, the structure qmath should 
contain additional fields Fen Information such as start and end times, 
parameter-attribute identifiers, and motion-type identifiers ihe 
structures should probably be ordered by start lime In one or mora 
linked list- 
Now look al the I unc I ion main in ev.implel c main calls functions 
to initialize the display, to create Ihe Initial values for the (unctions 
used to produce animation, lo produce animation, and to cleanup the 
display 

vi unctions .alls functions contained in tools c to initialize 
the qmath type strut lures Kl I m2Pts is . ailed to produce Ihe initial 

Values used lodr.uv the top -el ol line- Ihe inpul to this function is 

two points Ihe output IsRLfOT DellaRl ihemu^ei porhon of RL(0|. 
and ttv i- ot a linear equation containing the points. 

I urn lions also makes tour .alls to RQFm2PtsAndVeJ to produce 
the initial values used to draw the remaining three setsol lines. There 

are four calls rather than three because the last set ot lines is drawn 

using two equations instead ol one 

MakeMotion draws the lines on ihe screen Four lines, one from 
eat h set, is drawn in eat ii frame I ook al Ihe for loop in MakeMotion 
I hree similar lines ol codi are repeated Four nine- First Move and 

Draw aie called to draw .1 line on the BCTeen Next, 1 oinpiHe\e>lRL or 

i omputeNextRQ i ompute the position ol the next line in 
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ihe set of lines. Compute.NextRI. is called if the position of each tine in 
the set is determined by a line.it equation ComputeXextRQ is called it 
the position of each line in the set is determined by a quadratic 
equation. The conditional statement within the tor loop is used to draw 
the bottom set of lines on the screen. The 'if part is tiled to draw the 
lines on the left side of the screen; the 'then' part is used to draw the 
lines on the right side ol the screen 

Example 2 - Applying DiHerent Types of Motion to Two 
Attributes of One Object 

The file example2.c contains the code for the second example. A 
rectangle is animated for 121 frames. It moves both horizontally and 
vertically on the screen A linear equdtion is used to compute the 
horizontal positions Of the rectangle. A quadratic equation is u*ed to 
compute the vertical positions of the rectangle. The quadratic equation 
was chosen to have a slope of zero when the rectangle reaches its 
highest point on the screen 

I «.imine the tile examplelc. RQFm2PtsAndVel is called with two 
points and a slope ot zero at the second point The first point specifies 
the initial vertical position of the rectangle. The second point Bpctifia 
the highest vertical position of the rectangle It is the highest position 
because the dope at that point la zero and the first point i- below It 

When you run this example, you'll MO that the rectangle climbs 
from its lowest vertical position to its highest vertical position with 
decreasing speed, and it descends back to the bottom of the screen 
with Increasing speed Simultaneously, ii is moving across the screen 
at a constant speed. This is the same type of motion von see when .in 
object is thrown in the air. 



The structure ot the code for this example is similar to the 
structure of the .ode tor the tin.! example Ihe major differences arc: 

1 In the first example Move and Draw are used to draw linev In this 
example Recti ill is used to draw rectangle* 

2. In the first example only one bit map is used. In the second example 
both bit map* are used 

3. In the first example the screen is not erased before the next set of 
lines is drawn. In this example the screen is erased before the next 
rectangle is drawn. 

Example 3 - Rotating an Object 

The file example3.c contains the code for the third example. An 
hour-glass tiguie is rotated 5 1 / -1 turns counterclockwise In 301 frames. 
The figure is specified in world coordinates. The only real requirement 
of our world coordinate s% item is that both axes use the same scale 
The amount that the angle of rotation changes each frame is deter- 
mined by a linear equation. A linear periodic function. RI.P, is used to 
change the value of the angle. Since Ihe algorithm for RLP is used, the 
value of the angle is never greater than the period of Qsin. Qsin and 
Ocos are used to rotate the figure about the origin After the figure is 
rotated, it is converted to screen coordinates and translated to the 
center of the screen. For our purposes, the translation is necessary 
because the origin of the screen coordinate system is on the upper left 
comer of thedisplay. Note that Instead ol translating the figure by a 
constant amount each frame, a linear function, Rl., or a quadratic 
function, RQ, could have been used to move the figure on the screen. 

Look at the functions in examplc3.c. In addition to initializing the 
display, creating RLP(0) and DeltaRLP, and updating the values once 
per frame, main calls functions to Initialize Ihe aspect ratio in fixed- 
point format and to Initialize the Qrinlable. Once per frame, Ihe 
(unction MakeMotion calls SelRast to clear the display] calls QRotate to 
rotate and translate Ihe ligure. and to convert the figure to screen 
Coordinates; calls Move and Poly Draw to draw the figure on the 
screen; and calls CompuleNextRLP to compute the angle of rotation 
tor the next frame. Double-buffered bitmaps are used in this example. 

Experiments to Perform 

The reader may want to try the experiments described below. 

1 Decrease the value of UN_FRAC_BITS, the number of bits to Ihe 
nght of the radix point, and run ihe programs again. If 
LIN_FRAC_B1TS becomes too small, the figures will not move 
correctly because of round-off error. 

2. Decrease the value of FPP1 and related constants and run example 
three again. When these values become too small, the image will not 

rotate smoothly. 

3. Write the functions RQPFmZPtsAndVel and ComputeNcxtRQP. 
RQPFm2PlsAndVel computes RQP(O). DellaRQP(O), and DeIta2RQP. 
ComputeNextRQP computes ROJ'(t) for t greater than zero. Modify 
Ihe third example so that the object starts rotating slowly, acce l e r ates 
until the object rotates 2 and 1 /8 times, and decelerates until il reaches 
a speed on zero at 5 and 1 /4 rotations. 
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display .c 



play.c •/ 

fCc\ -9Jb} 



■ 



• 






■includ 

lincludi ■'- ion.h> 

■ ■ 
non_protos.h> 



■ 
■ 

:•-' SCREEN_DEPTH 

* . ■ 
■ 

■ .; - 
■ Idx; 



(640) 
12) 



essary to 



lor Udx « 0; idx < SCREEN.DE; 
it (fcft 



FreeRaster (bo 

SCI 






■ 






■ 



id 



■ 
> 

Hap <bit_map(l|); 



.. 



short idx; 

•bm = (struct BitHap *l 

AllocMem (si zoof (struct BitKap) . MEHF_CLEAR) ; 

NULU 

I 

... 

BitHap I'bro. SCPEEN_DEPTH, 

SCPEEN_WIDTH. SCREEN_HEIGHT) ; 
for Udx = 0; idx < SCREEN_DEPTH; id- 
( 
(•bm)->Planes[idx 

(PLANEPTRlAllocRaater ISCREEN_WIDTH, 

SCREEN_HEIGHTI : 
■ M*bm)->Planes[idxJ I » NUI .: 
( 



BltClearl (*bm)->Planc3|idx) , 
(SCREEN.WIDTH / B) • 
I 
else 






FALSI i 



break: 






else 

Status = FALSE; 
ilstatusl ; 



(void) 



• mscmn tw*_»creen ; 
status « SetupBitKap lfcbit_map[01 >; 

< 

TRUE) 

f tEdge^O; 
ncw_screen-TopEdge«0; 

ncw_screen.Width*SCREEN_WIDTH; 

SCRBEN_HE 
new_i. • '): SCREEN DEPTH: 

new_screen. Detail Pen*0 ; 
.screen. Block' ■ 

new_screen.ViewModes=HlRES; 
new_screen.Type°CUSTOMSCREEN I 

CUSTOMBITMAP I SCREENQUIETj 
new_screen . Font sNULL i 
new_screen.De(aultTitleBNULL; 
new_screen. Gadget ScNUI 
new_screen .CustomBi t Hapsbi t_map 1 1 1 

screen • OpenScreen(Snew_screen) ; 
if (screen ! » NULL) 
I 
screen->RastPort. Flags = DBUFFER; 
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FALSE; 
> 

■ 



my_protos.h 



ibertGalka •' 



/• Prototypes tor funct n 



RLFm2Pts (double t(>. 

■ 



. doubl c xO . 

! 

'J i. . vm, 

double "a. doul '. 
long 'BQP. lo; . 

lonq ■ • "J) ; 

lonq ■ (double' • • xO. 

■ 
• nrot , 

■ ■ 

■ 

■ 
tt • RotPt . ng HF! 

■ i "puteNexl HO I long •RQ, * • 

longComi-. ■-LP) i 

I iDlcXdp," . 



>v.c "' 

void c : . 
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tools.c 



•"nilSUST!\(;iS\()| COMI'I.I.U AS SHOWN 

/•tor. . • 

ht 1993 by Robert d 



■ 



t ode 



U3CthC_. ,'WOfd to ■: 



■ include «ituth.h> 



: ■ ■ . 

■ 



' 



/* Constants used toQsin andQcosopci 

.ink of FPPI as Fixed Point repress/ i' 
•define FPPI_D2 HOI 

•define FPPI (2048) 

- 

■ 
I* Note that PI ( J. 14. . . 



longOsi: 
■ ■ 

;octRatio: 






■ 



<ed point 
into a long integer ■:.-.. I 



/• round bei 
if (FPVal 
FPVal 









It) 



static long inline 1-ongInr.ToFP tiong Intval, 

lonci 

/ 
" i 

i ■ LonglntToFP converts a long so a 

of che radix poiti' 



; 











\m (floatingpoint) number, 
.vh NbrFn 



Doubl- 

. ■ .. - O.S: 

■ 
DoubleVa : 



H longtDoubloVall ; 









doub'. 









■ 



f* RLl 

• ■ • . ■ 

• also 

. RLG and 
function - 
• o the cal . 



■ 



• 



•DoltaRL = DoubleToFPCb. LlN_n*C_|J . 

Bturn the 

..'), LIN_FRAC_BITS)); 



longROFWPtsAndvel (doub 
■-!■ lb 



' . 



long * 



I 



/• RQFm2PtsAndVel compu , a. b. 

and c. (or the equation o'. . < 

• * - - t • - - -. given two 
. (tO. xO 

my poini 
It also computes the 

. on RO descr 1 b> RQ0 , 

. 

na the rounded integer portion of RQQ 



1 



tO ' tO I . ■ ■ --0) )) ; 

b « vm 

• ' • *b * to)) : 

.'■ », . - • i2RQ '' 



• Now 
•RQQ 



1 



i 
■ " I (2 * tO) - 1) ■ *b. 



:n_frac_bits) > «- 






ible to, double xo, 

■ 



' ' I MIS LISTING IS NOT COMPLETE AS SHOWN 



Complete source code and listings 
can be found on the AC'S TECH disk. 

Please write to: 

Robert Galka 

c/o AC'S TECH 

P.O. Box 2140 

Fall River, MA 02722 
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Input Mask with Help Key ! 



1 spend most of my programming linw "human proofing" mv 
programs. "Human proofing" requires program code lhat constantly 
checks user input ensuring that it is in proper format and within a 
speciti. range of values I his process uses my most valuable resource. 
my time. For an input error, the program guides the user to correct the 
input. Flexible program input requires more program coding to catch 
errors before they crash the program or invalidate calculations or 
output. 

TWs article will explain a True BASIC design, which permits 
control over user input by using a keyboard mask. A help kej t- HI 
integral part of the keyboard mask, and discussion of its capability will 
close this article 1 used a True BASIC module to set up and define 
global variables used throughout the program. This is a powerful 
programming tool Module discussion will cover specific structure 
considerations and practical examples. The term "procedure" in this 
article includes the True BASIC programming structures of subrou- 
tines, functions, m^i pictures Itsllcized words are variables and the 

capitalized words are I rue BASIC keywords. Line number- IK fol 
reference and are not necessary for program operation 

1 rue BASIC is ■ structured, portable language. The program will 
run. with minor graphics mode changes, on an IBM-compatible or 
Mac intosh computer. You must change line 36 when von port the 
program over to the different systems. It is high** for an Amiga, 
COLOR tor a Macintosh, and HIRES for an IBM compatible computer 
Phis i s true portability 

A True BASIC module has characteristic not shared by True 
BASIC functions, subroutines, or libraries. True BASIC scans each 
module at program startup and initializes appropriate code before 
main program execution. Functions and subroutines do not normally 
share variable values or names outside the procedure These variables 
are local values to the procedure Consider the output of the following 
example 

CALL Alpha 



BOB Alpha 

lit Mr. Varlabla • 1 

CALL Bravo 

mm MYViii4t>:< 
■MP nun Bravo 

lit «y Varlabla • 10 

■B) HS 



When executed, this program will print the number five to the 
screen. True BASIC considers M\ Variable, within each subroutine, as 
two different, unrelated variables It von wanted Alpha and Bravo to 
share My Variable, you have three options One is by reference, and 
the last two options use modules and the keywords SHARE and 
I'UBLIC. I'll cover the reference option first 

lo modify the preceding code to pass the valued M) Variable 
by reference the ^<-dv would look like; 

CALL Alpha 

ssonnmu 

■Of Alpha 

LA- *y vac labia a 1 

CALLBravolKy Vatlablai 
MUWTttv variable 



tut Brarof Faaaad Dalai 



UT ra.BI-4 B*t* • 1. 



The result oi this .ode execution is the number 10 printed on the 
s»reen The Passed Data variable in subroutine Bra\o takes on the 
name and value of the My_VanaHe \nv » hanges made to 
Passed.Dats in subroutine Bravo wit effect M\ Variable in subroutine 
Alpha You lose the value ol M\ Variable "hen program flow returns 
to Main. The other options for passing data to called procedures use 
modules and IheSHAKI and I'l Bl K keywords 

You usetheSHARI keyword in the module header. SHARE 
allows procedures to use variables, arrays, and pictures throughout the 
module. The SMAREd item retains its assigned value even after 
program flow exits from the module. Consider the following code: 

CALL Alpha 
OB 

sassssM 

»KX>JLI Taat 
INAAIXv varlabla 

*VB Alpha 

LBT MT Varlabla . 1 

CALL Bravo 

Brlal My Varlabla 
in: SSI 
fim Bra-o 

LIT UT Varlabla - 10HTO mm MODULI 

It has the same effect as pas-ting M> Variable values In re f e r ence, but I 
eliminated (My_Vari.ible) and (Passed Data) f mm the axle It has the 
added benefit ol returning its assigned value when program flow exits 
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Ihi* module Another example is the SHARE »99 statement on lino 34. 
Module specific variables, which retain their values, create a very 
flexible programming capability The module PUBLIC keyword i- the 
tol option which allow* variable sharing within a program. 

To establish .1 public variable, use the True BASIC keyword 
PUBLIC You declare .1 variable PUBLIC once and it must be PUBLIC 
Iviore assigned any value. If you made the following PUBLIC 
statement in subroutine Alpha. 



TO Mpda 



row-icwy aiooai v.mt.i. 

faufciout loa body) 



and then tned to make a similar PUBLIC statement in subroutine 
Bravo: 

(71 Iravo 

mLtC Ky Global van tbl* 

laubioBllM body l 
who rot 

you get a runtime error slating thai the variable "Name can't be 
redefined." If My .Global, Variable is assign a value berate the 
I'LHl It' statement, the same runtime error will occur. The DIM 
keyword is the normal method for dimensioning a matrix or array. 
However, when Mi army is a publicvariable.it is dimensioned and 
made public with one statement (see listing, line 30). I locate ins 
publii- variables in a module named Global to avoid this problem. I 
have one place where 1 add, change, or delete public variables. There 
are two other key words used in the module header. PRIVATE and 
DECLARE DM 

The PRIVATE keyword prevents the named procedure from 

access oublde the module. Only procedures bi a module can use .i 

PRIVATE variable or procedure within the module. In the following 
example, subroutine Bravo is PRIVATE. From inside the module 
Alpha uses Bravo, but Bravo is not usable from the Main program. The 
following code demonstrates this Idea 

CM* arm 

BRSMU 
MOOOUTMt 

fMU My Variable 
mv*rt «ra»o 
R»U|M 

UfT *y Varlabl* • % 
CAU. »ta-o 

••in My vailabla 
wd mm aia-o 

Lai My Vat labia • 10 
OfD SUB 

urn BOOCLl 

Tins results m the error. "Undefined routine BfaVO in Main Program," 
which showsthat Bravo is not usable from outside the moduli' it you 
add the following code liiu-s immediately following TNI* MODI. I I ■'. 



-*: My Vat lab la • 10 

in: m 

then run the program. True BASIC will report "You have two routines 
Oiled test bmvo " The use of 'test 1 in the error statement is to direct 
you to a module named 'test'. Within lest there is a subroutine named 
bravo which is a duplicate name for another subroutine located 
outside the module. The Help_Screen PICTURE is an example of the 




PRIVA 1 1 statement usage (lines 65 through 98). 

Access to Help_Screen PICTURE is in the module and it is hidden 
fram the test of the program DEC! MU DEI is the last/True BASIC 
keyword used m the module header. Since the program listing does 
nol contain a function, 111 use an imaginary function called idateS to 
illustrate its use within a module. 

DECLARE DBF Statement informs True BASIC that the program 
intends to use a function within the current procedure When used in a 
module header. hue BAMC permits function use by any procedure 
within the module Suppose a function called cdateS returns the 
computer system date in a format specified by a string (formatS). 
Assume the string is a combination of Ds (for day), Ms (tor month), 
and Ys(foc year), Ihe position of the Ds. Ms, and Ys determines the 
formal of the returned date string. For example; "DDMMMYY" will 
return the date as "15 Jul 93." 

The following code illustrates Ihe usi>ol DECLARE DEF without 
modules 



101 Alpfc* 

CCCLAH Dtr cdaial 
MUTT Cdaial I -Dam&crt- 1 

no so> 

S'.l Inv; 

OKUlM DIP cdaial 
p»i*t cdatai i 'ocwirrr- i 

aa an 

MP cdaial I foraatf i 

Iconvafiloo coda I 

un cdatal • '11 Jul Il- 
ia:' nr 
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die Commodore Amiga, You'll find comprehensive reviews ol Amiga 
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hints, ups. and tutorials on a variety ol Amiga subjects such .is desktop 
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Notice Ihe DECI ARE DEE statement in each ol the subroutines 

TTus can get cumbersome it manj procedures use the function. When 
subroutines are in a module, you use the DECLARE DM cdateSonce 

and all procedures within (hi- module on us*- the function Modify the 
previous code .is follows: 



CALL Alp!» 



CALL ll.ro 

utuxal 

"WIUTMt 

DKLAU BIT edal.l 

5DB AIM* 

no ira 

rat >t «*o 

"llCcltit!. 



'cd«t«l(tOrm*Ui 

leoovaiaioa codai 

UT cdaiaf . -IS Jul *J- 



which shows how la use DECLARE DEF in a module. 

Hie CHobaln>oduJem the program Usttng uses PI HI K 

PRIVATE, .ind SHARE kev words \ow I'll explain ihcHelp Kev 
subroutine and lis use within .1 program 

The keyboard input mask is a module named lnput_\lask Three 
subroutine-.. Keyboard, Keyboard t enter, and Keyboard 5 

compose the module (see lines 171 to 410) K> gleis 

PRIVATE and not accessible outside ol the module 11 is the entr) 

point tor the Help Key procedure Keyboard and Keyboard 
both use Keyboard_Single to control program Input You use kev 
board to enter data anywhere on the screen and Keybo,ird_Center will 
.enter the input on a line. 
Keyboard call formal is; 



4nn 



l»put, 



■•(board charactara. 



CAU,l*ybo*rd(r.e,a.el.r<Ml,C!.cei 

• r and e ara aciaan iow aad colaan to aiait keyboard 

• a la toa — H a— daalrad 'Uncut laagta or iba inpvt , 

- cl la a airing or prlnlabla BUnetMi 

- K la iba pas color, 

- I* la (ba Inpst aalact, ■Bitli dataraloaa accapfabla 

- CI la curaot aat in or OFT 1 or 01. aad 

- CC la curaor color - 



displayingil on Ihe screen. Since row and column {row 1 and col I) 
variables change during the execution ol Keyboard, working variables, 
row and col, are assigned their values lines 174 to 182 arc self 

explanatory l.mes 183 to 189 empty the keyboard butter. This prevents 
Unwanted characters from getting into the input stream It you fill up 
the keyboard buffer by holding down any key, the subroutine will not 
progress past these lines until vou release the pr ess ed key The Buffer 
(line M7) subroutine could replace ltne> 183 to 189, which would also 

the keyboard and mouse inputs After the keyboard buffer is 
clear, the Kevboard subroutine calls Keyboard _Single (line l^S) 

Keyboard .Single is the workhorse of the input mask It limits the 
keyboard input stream, it is the help key access, and it controls a large 
portion of the module's "human proofing." GET KEY keycode takes 




the next input from the keyboard and assigns it the value ol kev code 
tins is an integer and it represents tin- ASC tlcodc ol Ihe kev vou 
pressed When you press the \v k.-> keycode would be 65 You can 
find the ASCII character set in the True BASIC Reference Manual, page 
375, or in the Student Fdition Manual, page HI IN- following program 
will display Ihe keycode ol pressed keys, il you don't have the 
manuals handy. 



Keyboard Center uses an additional parameter named 
Password_Set (either I or 0), which protects input data without 



DO 

GtT *XT taycoda 
SIT curaor 11,40 

miitt uaingf i •(■•'. kayeoda) 
»A0*l ) I -alt. fl-a aacooda 

toot 



Once keycode has a value, the program determines it it ts the 
keyboard III! Pltey When keycode is 325, the subroutine branches to 
the Help. Display subroutine (lines 412 to 639). I will cover more ol the 
help kev Selection in a moment When keycode is no! 323. program 
Rem continues with the SELECT CASE options (lines 314 to 401) 

The t ASE structure operates much like an IE 1 1 ll \ statement, 
but you can check more keycode values with one CASE statement than 
i- possible for a single II II II \ structure The Keyboard .Single 
subroutine is easilv customized tor each program use. 

The value assigned Input Vleil determines which ( \M 
selection monitors keyboard input If a portion of my program needed 
numbers as inputs, then I would assign lnpul_Sclect equal two. This 
limits acceptable input to the zero through nine keys, the backspace 
kev. the return key. anil the delete kev Press am other kev and the 
program appears to do nothing The actual program flow branches to 
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the Input.Sclect CASE 2 (line 354), 
determines H was not acceptable input, Mid 
then branches back (0 line Mil la wail tor the 
next key stroke Then is no discernible time 

delay while typing In the data Now let's 

diSCUSS what happens when you select the 
HELP key 

When program (low is in the 
Keyboard .Single subroutine and you select 
the HELP key. the program branches to the 
Help_Display subroutine (lines 412 through 
639) HelpKvy, a global variable, is 
normally equal to zero, but it can change 
anytime during program flow "I he best 
place to set the HelpKey is entering and 
exiting the using procedure. There are three 
HelpKev I ASL examples shown in the 
program listing lhe\ are I \SL 1 ltext$ is in 
the program code), CASE 2 (textS taken 
from a text die), and CASK ELSE (when 
HelpKey b zero). You tan add any number 
of CASE options in your program help 
procedure 

The DECLARE PUBLIC statement m Help. Display permits the 
use ol global variables within the subroutine 1 used the sSand tS 
arrays to load and manipulate the textS data embedded within the 
program code (see lines 440 to 4431 or read from a text hie (see lines 
446 to 461) 

The program breaks the text's data into paragraphs and places tin- 
data in the s$ amy lie. each element in the array is 

paragraph), and each line of the 1$ arrav represents l( single line that 
will print within the help screen dimensions. The text Information in 
the t$ array allows forward and backward browsing of textS. 

1 used three blanks in a row to Inform the pn>gram code where to 
make the paragraph breaks At the end ot line 442. Immediately after 
"... the help display' are three blanks. This causes the subroutine to 
insert a blank line in the sS array Fhb effectively causes s blank line to 



TESTIHGI 



The online True BASIC help key routine allows the prooranner 
to construct any size help screen quickly. The keys that 
scroll the screen are the arrou keys, the upper and lower 
case 'B\ 'D\ 'V , 'f , 'it', the escape (ESC) key. the 



text either forward, backwards or exits the help display. 

In order to change the size of the help screen display, the 

Irogranner need only change the values (helpleft, 
elp right, help.botton, and helpjop) located in the 'Global 
nodule'. 

- Press any key/nouse lo continue - 



Text for this HELP file uas included in the progran code. 



TESTING 



Keyboard Center used, no 
cursor visible. 



appeal alter each paragraph Figure 1 i- an example of the textS 
variable oulputled to the help screen. The next example. CASE 2 (line 
(45), Will read the help information from a text tile. I used a tile named 
Kej CASE 2 ixt." which has84 linesof program code. The length of 
the lext tile affect how long it takes to read the data Each text hie line 
represents s paragraph when the program loads the Information into 
[he s> array. I used the True BASIC editor lo make and save the tevl 
tile 

1 here are other variations you could make with the Help_Displ.iv 
subroutine different size and placement ot the- help screen, loading 
HelpOvlyS from a byte file rather than drawing it initially, and popup 
info screens to help guide data entry, to suggest a lew Each ot us has 
ideas that will make these procedures benelici.il tor all to add to their 
True BASIC library. 

Vou can use the hue mask keyboard 

mas*, with built-m help key capability, to 

write programs quickly It will minimize 

your "human proofing" time, permitting 

you to spend your most precious resource 

on program design and operation 



This is the code for the Global Module of the Heyboard.Help 
progran 

HODULE Global 
OPTION BASE 1 
PUBLIC rjtax.c nax.rh.nax.ch.nax.e.center, HelpKey 



PUBLIC helpleft,helpright, help.botton, help top 
PUBLIC nsg5T t ),HelpO«IyS 



- Press any key/nouse to continue - 



Text file is the source for the information for this HELP screen. 
[Various options are available to custonize your HELP functions 
ifor your prograns. 
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Program Listing 



Help' copyrighted 
! by T. Barrel Westbrook 

! 

1 DEOARE PUBLIC rh_max.crunax.HelpOvlyS,HelpKoy 

2 DECLARE PUBLIC help_left.help_.right.help_bottom. help cop 

3 DO 

4 CLEAR 

5 PRINT •HelpKey = 0" 

6 LET HelpKey ■ 

CALL Keyboardd0.40.10.es. 2. 1.1,3) • only numbers 

8 CLEAR 

9 PRINT "HelpKey ■ 1" 

10 LET HelpKey ■ 1 

11 CALL Keyboard (4, 15. 10.- : 

12 CLEAR 

13 PRINT "Hell 

14 LET H<- . , 

1 5 CALL Keyboj i 
thing upper case 
1 6 CLEAR 

:. "HelpKey 
18 

: LO.cS.2.1.2.3,11 

. i LCOi 

21 END 
22 

■ 

' ' '.obal 

■••!. HelpKey 
It R>L: ■iin_right,main_bottam.mair,_top 

'ht . help_bottora. holp_top 



Holp_Scre- : 



36 SET MODE "highS" 

37 SET color mix (0)0,0.1 
blue 

■ • 
■ 
- c mix J 

Lor mix (4) 1,1 

■ • 
44 SET color mix (7) 0.0.0 
45 

r_ '-ix.c_max 
: " ■ :s on current 

olp key code 
■ .:fain_bottom.main_top 

:.: inue -' 
52 LET msgS<2) ■ ■- Press any key to continui 
S3 



■ iround light 

! set color to white 
• rolor green 
•olor orange 
olor yellow 
oloi 
' olor dark blue 
I set color black 






54 DRAWHelp_Sc: 

55 WINDOW »99 ! ac: 
16 

57 BOX SHOW He! i play 

58 LET c_center olumn width to he . ; 
size 

59CALLCente: - 

60 PAUSE 2 ! pa'. 

61 CLEAR 

62 CLOSE 199 ! close 

63 LETc_ceni _nax : « 
64 
65 PICTURE Help_ 



■en 

■ 



66 

67 
68 
69 
70 



help_top 



LET help_left = 0.05 
LET help_nght 
LET help_botIo- 
LET help_top = 0.8 
OPENt99 : screen help.left .help_right.help_bottotn. 



71 
72 
73 

76 

77 

78 

79 
80 

ei 
B2 
83 

--; 

B5 

BG 

47 
BE 

H0 

90 

91 

►2 
9 3 

<-; 



WINDOW 199 

ASK max cursor rh_max.ch_max 

SET color 5 

BOX LINES 0.005.0."- 

CNES 0.007,0.99 
BOX LINES 0.009.0.991,0.005,0.995 

SET color 1 

PLOT LINES : 0,0; [ 
PLOT LINES : 0.0025, 
PLOT LINES : 0.002.0. 

SET col^t 

PLOT LINES : 0.002,0 ; 1.0; 1.0.99 
PLOT LINES : 0.998.0.99; 0.998.0 
PLOT LINES : 0.996.0; 0.996,0.99 



! dra" :de highlights 



PLOT LINES : 0.011.0.015 
PLOT LINES ; 0. 
PLOT LINES : 0.9 
SET cole- 

: 
■ ■ ' ' 



.0.985 

0.989.0.979 
,0.017 



: . •■ 



96 P 1.009,0.9 

97 BOX KEEP 0.1.0,1 in HelpOvlyS 
98ENDPICTURE ! end of "PICTURE Hold*. 
99 1 

100SUBOpen_Help(l9) 

101 OPEN «9 : screen 

help_lef t , help_right , help_bottom. help_top 

102 WINDOW 19 

103 END SUB 

104 END MODULE ! end of 'Global' 
105 

1 06 SUB Press_Any I row. Pen_Color » 

107 DECLARE PUBLIC msgS I I 

CALL Center ImsgS(l) . row. Pen_Color ) 
CALL Pre*s_On 
110 END SUB ! end of *Press_Any' 

112 SUBPress_On 

113 CALL Buffer ! cle.. /board and 
buffers 

114 LET w = ! mout.- Lei ^tatc 

115 DO ! now take any r, . 

116 IF !.• 
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in . - 

M 
120 SUB ! r 

ss_On* 

■ 

ix then LI _tnax-l 

ASK color hold ! olor 

■ 
' xtS 

color 
rid of *Cer, 

135 Sill- ow_2) 

136 DECLARE PUBLIC i.. 

row_2 
■ ■ 

: _inax 
140 LET • SI" ",c_iisax-ll ! clear to end of 

SET cursor i 

■ 

I 
146 

148 SET ■ .■ r " " 

■ 
150 
151 Input 

.nput too 
ELSE 
154 

■ ■■ ■ 
en: 
157 

. End.lnst-: 
161 • >i . roul : 

■ 



■ 
■ 



168 NEX 

end of 'Spa 

■ 

Keyboa: 

■ 

or -OFF' 

176 LET 
values 

; ■ 



■ 






. 






166 


■ 







tie si 

179 SET cursor rcw.c 

180 PRINT rep-- H 

■ 

181 iw.col 
IB? 

op 

184 /board 

185 KEY x ! - 
ELSE 

187 

188 END 

189 LOOP ! end of forever loop to ■ ird 

190 rx op 

IF Cursor_Set = 1 ther. lay cursor 

192 SET color Cur5or_ 

SET curGor row, col 
PRIH1 ' ■ 

195 EN: 

196 -w.col 
SET color Pen_Color 

19B 

•■ 

200 , key 

201 LE'i 

202 row, col 

203 PRINT repeats)" ".It 
coll) 

204 

205 LET . 



sound be! . 
i ■■ • 

208 "LET col fit col = c 

209 END IF 

210 CASF 

■ 
IF < : : 
-■ 

USE 
214 

N 

■ 

codes 

218 _Color 

219 SET cursor rov.<. 

220 LET cS = cS h tS ! add new printable 
characi 

PRINT tS ! pi .cter 

222 LET col = col - i ! increment col counter 

223 space 

CASE else 
225 rid don't change a thing 

226 

228 LI 

229 SET 
position 

i] color 



■ . 



ipace, cS, Pen_Color , 

. .■sword_Setl 
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T row 

! iorever loop 



■n ! 



ird b . 



23d 


' . 




ELSE 


. 


(IT do 




' 




Loor 




LET c ■ . 




■ " 



■ 
box 



unal color 

row. |c_nax/2) - (spa' . ■ 

:nput 

return string, null 



250 

- .: . 

252 ■ „ ■ .- ,.... 
len(cS) 

253 PRi:. 
254 

255 I -»rd_Single(lteycode.tS. Ini 

256 ASE keycode 

257 : BS and DEL keycode 
258 

259 SOUND 150 



262 
265 



i :lei 

SET color Pen_Color color 

SET cursor row. col 

;epeatS<" Mcnlc. 



lenltnmSfcSl 

266 l then I i »:- . 
protect 

267 — k • ' 
266 

m c$ & * ■ 

270 EMD IF 

271 ;ol « col • : : increment column 
272 

273 

274 

275 IF ordlt; j then 

LET cS 

276 

- program 
278 

.a CR 
280 CASE 32 to 12b ! printable characters 

281 

282 >.. ol - 1 

283 
ter 

284 SET cursor row. :: 
21 

285 IP Passwords . _ - : 
protect 

286 nlcS) t 

287 

288 :JT cS 

289 ENL- 

290 , . 



ounter 

293 

■ 

:ever loop 
296 St'i 

■ . 
29B 

. - - 

i ■ ' 

303 St 

304 SET color HoldCo. rig inal pen color 

■ 






•Jt .Select J 





■ 






DO ! F j 






'• i 












. ■ 


■ ■ ■ 










■ 




315 


• on 






SELECT CASE keycode 




317 


. 


dele' 



CASE 18, 39 ! Space • & - 

r DO 

.45,46.47 • | i , 



'. -vl. r. IB ... " 



: n 



through 



320 

322 

9 

: DO 
CASE 58.60.61.62 ! : 

: 

331 - •• . the following 

■ ■ cose let'.' 

■- - 32 ! 
make i .* 

333 

334 CASE 315 to 321 ! lunction keys Fl to 



A through 

: DO 
CASE 97 to 122 a through 





: DO 




336 






337 








. 


: up, down. 








340 


. 


: SHIFT up. down. 








341 


(IT DO 












■ 


-ain loop 









345 : BS. CR, numbers & period only 
allowed 

346 SELECT ' 

IK. 
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348 




■ 




349 

9 

350 




1 - CO 57 


■ 




■ 
















1 selc 


■ loop 






END St. 




3S4 


" 




355 




select CASE keycodo 


356 




CASE B, 


; bs. 


357 








3sa 

• 

359 




CASE 48 to 57 


■ 








360 




, ■ - . 




361 




■ select i . 












CAS 
















365 


CASE: 


' ■ . 


key. 


1 key 






366 








367 

9 

368 




CASE 48 to 57 


rough 




UT DO 




369 




CASE - 




370 






■ 


371 








372 






373 




. -ode 


374 




CASE 


! BS. 


175 




r do 








CASE 3 


! Spar-- 






" DO 




< 




1 ■ CO 57 










380 
Z 

381 




5 CO 90 






■ 




382 




CASE 97 i 




7 

383 

















387 
388 
389 
390 

392 
dele- 

393 
394 

395 
396 

398 
399 



LET koycode ; keycoo* 

■ 

! noi 
END Sfc 

■ 
Od» 

■ 









■ 
CASE I 

CASE e 

■ 



- 

■ ■ 
■ 
406 

408 

■ 

bottom, 

-op 

■ 

■ 
420 LET c 

. 

n_top 

: 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 
■ 

■ 

■ 

■ 
■ he programmer to cons? i 

■ 

per and 
■ 
•142 LET texts = '- • ■■ ' ■ *ey. the 

/.and the *c either 

1. backwor 
■ 

m#r naao 
-hangethevi ■ lp_bottom. and 

help_topl loca- * :-al Moduli' . ' 

■ ■ 

' ' ■ ' ■ ■ ■ :■ 
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- 

DO v. 

■ ■ 

LOOI' 
DC: 

le; 

464 

max - 1 

■ 

BOX SHOW 
■ 
i rursor hold_i ■■ 

■ 
474 

■ 

yS - *' 

. 

480 

■ ; i ( - « 1 1 • " 

■ 
482 

■ 
488 

■ 

490 

',< 

DO 
492 

1 ine p.. 

ngS { ■ 1 1 f * ' 

■ iti'.endl ■ 
49S 

jngSI-Mii", ji fcyS 
496 
par j I 

497 T DO 

498 
499 '••■•-,x- 



■ ■ ■ ■ 
50( 

. ys 

502 



505 ma; 

jphs 

■ 
■ 

: I . 

■ 

■ 

■ ■ > 

EUSr 

DO Wh 
■ 

■ 
LcntsS 
522 
lenisStm I 

■ ■ i 

■ 

■ ■ ■ 

• ■ 

ENI 

■ 

LOOI 

END * 

-■■ ' 

■ 

■ 
■ 

: 
! used to dis] 

- 
t'OV. 

■ ■ 
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548 LET k^k-1 ! cou 

ELSE 
550 LET stan 

DO wh;*.* ■r,.- t«n(sS(nJ ) 

■ 

553 LET stai* 

M lor edge margins 

LOOP while start *<len(8S(n)i 
END IF 
NEXT n 
MAT cS « nulSik«6i • use a six line bu: 

LET k » 
FOR n.l to sirelsSt ! load tSO a: i 

560 IF lenisStn) l •< ch_r . 

561 LET ksk*l ! count another 

562 LET t$(k) s eSfnl 

563 ELSE 

564 LET star-. 

565 DO while start ■< len(s$fn) ) 

566 LET x ■ posr{sS(n) [start :sto: 
lch_max-indent"2>].' - .start*(cruMX-indenf2l ) 

567 LET k=k<I ! count another line 

568 i then 

569 LET t$fkl=s$(n) (start: 
• fch_«uc-indent"2)| 

570 LET Starr • (ch_max- 
tndant*2)*l 

571 ELSE 
572 

don ' t use the blank 

573 LET start - start - x 

574 EN • 
575 

576 END IF :i_max 

577 NEXT n 

578 LETmax_star- prevent? 
past end of tso 



579 
580 

581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 



IF max_star" 
CALL Display.. 
END SUB ! end o! 'Display _)•> 
SUB Display_Text 
! 
: display the text 



LET start ".inter 

LET w -■ t) ! button 

CALL Butfer buffer 

CALL Help.PF 
DO ! get a 
IP key 

GET KEi ■ 
■ 
CASS 

FWD. CR. space, D. F. d. 
595 ca: 

tai 

•hen LET 

598 CASE 8, 66. 8 ."ft ! move BAK. BS, 
B. U. b. u. up arrow 

599 LET Stai tS( 1 
element pointer back 

600 

601 

602 CASE 

arrow* right arrow 



603 
604 
605 
606 
607 



rhjiox 
611 

612 

613 
tlH ■ 
614 



EXIT SUB 









■ 



en; 

ELSE ' . - • . 

GBT MOUSE U.V.W 

_max-round(V (rh_max-l ) ) ! 
»ies 

r r_teat - 

; r_test I hen ! 

lag « then LI tart- 

LET ! move t$t > 

erback 

IF st : 



ensure 

615 

616 



618 

620 
621 
PBX8! BTl 



CALL Help_PRT_5creen 
LET (lag 



■ 

-.-en 
tart ; s* 
:F start » max_start then LET stare -- 



■ 

: . .. 
...■ 

HOW HolpO te current 

FOR I ii 

no counter 
SET * nargin 

■ 

- • n_M* 



■ 



r>rinr the 



628 
window 
629 
630 

633 

636 
637 
638 END SUP 



Complete source code can be found 
on the ACs TECH disk. 

Please write to: 
T. Darrel Westbrook 

c/o AC'S TECH 

P.O. Box 2140 
Fall River, MA 02722 



Volume 3, Number 4 



41 



Mr. Newton 



Programming the Amiga in 



And H i fi 




Hoot 




Bye-bye 

I said "good-bye" loan old friend yesterday— a friend who had 
helped me with assembly language programming for several yean; .1 
friend who got me through .ill those hours of confusion. GURU, .ind 
frustration I finally packed up my Amiga 300. This article is Written 
for the Amiga 3000, but, since the assembly code does not use any 
68020/030 or CO-prOCessor commands it may still work on An Amiga 
500 with some modifications 

In this article HI discuss using Requesters. Previous articles have 

■■I Menus (V3 I) and Gadgets (V.1 2), since Requesters use 
Gadgets, nusseems like a good time to leant about them. The 
assembly language program will solve equations and show the result 
graphically, and it uses requesters with .i zoom routine and a puture- 
SUC Control. I'll also show you how to have vour program react to 
pressing specific keys rather than using menu select* m- 

Requesters 

As with most Amiga features. Requesters are structured. In Table 
1 I've listed the elements of the 112-byie requester structure. The 
OMerRequest is SUppUed by Intuition Left-edge and top-edge refer to 
the number of pixels relative to the upper-ten corner of the window 
Width and height are the total re q ue s ter dimen si ons in pixels Killed 
and Reltop refer to distances from the pointer it you want to position 
your gadget that way. The next three items .ire the pointer, to the 
gadget structure. An optional border structure, and text structure for 
the gad git wording. Every requester must contain at least one gadget 
to escape from it and will usually contain two 
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REQUESTER STRUCTURE (112 BYTES) 



In case you \i -%! >ome previous articles IT) review that 20* 

LNTUITEXT structure 1 he tirst put contains: 



l olderrequest • previous requesters (I) 

left-edge - relative lo upper-left corner of window 

6 top-edge - rekth e to upper-Iefi corner of window 

8 width of requester In pixels 

10 height of requester m pixel- 

12 relied - location relative to Ate pointer 

H reltop - location relative to the pointer 

16 reqgadget ■ pointer to the gadget structure 

20 rcqborder - pointer to .in optional border structure 

24 reqlexl - pointer lo inluilext structure 

28 flags - 

(Sl point rel - requester will be relative to the pointer] 
(S2 predrawn - there will be a custom bitmap Struc- 
ture) 

30 backfill - inside pen color 

32 reqlayer- pointer to layer Structure 

36 padding (32 by ie-0 

68 imagebmap - pointer tOCUStOm bitmap 

72 rcqwindow - pointer to requester » tndow 

76 padding (36 bytes) 




\e>t are the flags for a requester. There are live ot them 



FOWTULItll ■ if- raqtiaitar »111 ba poaltlonad raUtln to tha polelol llaa 

ttLUPI Ud KXLTCr aboval 



W imw iHl - r°" *lll u»a ■ cualoa biinap to dta« your own ra^vaatai 



UOOmflMDOM(IlHO) • tba faquaatar It aellva bui o(( IM -Indo-iaain-alnad by 

let lilt loo I 



nOftCTlVKllOOOl - lb. .-r-.'-.r it curraMly aeUva taalblalsad by Intuition) 



tTSUQQUT - tnla la a ayataa-aaaaratad raquaatat maintain*) 
by Intuition) 



I he background pen color is next followed by ^n ophonal I aver 
pointer Alter 32 bvtes of padding are the pointers to your optional 
bitmap and the window More padding of 3d bytes finishes the 

structure 



BYTE 

tl the Iront pen color (foreground) 

1 the back pen color (background) 

2 dnwmoo>0AMl,IAM2,XOR | 

3 padding 

4 offset in pixels Irom the left edge 
" offset in pixels from the top edge 
B lont pointer, it anv 

12 pointer to the NU1. 1. -terminated text string 
16 pointer K> the next INT1 (TEXT structure, if any 
IbUowed bv the text in this format - 
BODYSTKING DOB 'OK to ZOOM' '.() 

The requesters m tins program will ask it you want to zoom and it vou 
want a Small or large picture- 

I mentioned thai you call up the requester using the Intuition 
function AutoRequest But once it's there, how does me progra m know 
when you click m a gadget and which one* Again, lorturutelv, the 
requester make* its own set of IDCMI' Hags temporarily replacing the 
ones vou assign Kl your window. The flags will note which of the two 
gadgets vou select, store .1 corresponding value indO, restore your 
window IDCMI' tlags. and close the requester (actually Inactivate in 

Plain Vanilla 

This program will also react to key presses if you include the 
\ AMI I AKEY ($200000) IDCMP flag in your window structure. I used 
a modified I NTTJI MESSAGE structure that eliminates menus since all I 
wanted were IDCMP flags, ASCII values, and mouse X/Ycoor.v 
I he l\ 1 1 I MESSAGE stru. lure Is 

Itl IT 

i) IheDM.MESSACl 
2H |M CLASS- IDCMP flags 

24 IM CODE - menu/ item /subilem; ASCII values 
2" IMC* Al u UK rawke) codes 

25 IM ADDRESS- this (unction address 
12 IM MOl SI \ X coordinate 

34 IM.MOUSI i i coordinate 

M SECONDS -current time in seconds 

M MICROS - time in tenths of seconds 
44 IM IDCMPWINDOW - window address for the IDCMP 
48 IM SPECIALLINK - for system/special use 



An Alternative 

Now that takes a lot ot work for such a simple feature Fortu- 
nately the Amiga has .in easier w.iv LHing Intuition's AutoReqU 
348 offset). Table II lists the items required to call this function The 
requester Will -enter a Une or lines of body text. It will also position 
two gadgets al the lower-left and lower-right of the requester You 
must also supply me text for both of these gadgets All te\I must he in 
the iNTUfTEXT format and the strings containing the actual text ire 
NULL terminated. Once the requester appears everything waits until 
you click on one of those two gadgets Clicking on the left gadget puts 
a 1 in register dt> and clicking on the right gadget puts a in dO. 



When a message is received, the program firs) losec 

which IDCMP Mag it i~ II it is a MOUSEBUTTON. Ihe program will go 
to the zoom routine II it is a MOUSEMOVE, the current coordinates ot 
the points .ire stored in MOUSEX and MOUSEY. If the IDCMP Bag is 
\ Wll I.AKH men vou pressed a key and the ASCII value is checked 
m IM CODE. The program reacts to the following keys: 

s start drawing 

c - go to the coefficient s> 
■ switch/toggle the picture size 
through 9 - change palettes 
q - quit the program 
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There an- 10 palette values al the end of the program and any lime you 
press 0-9 on the keyboard or keypad the program will use the 
load RGB function to immediately change to that palette 

Mr. Newton 

Now that we know how the program does things, what din*-, n 
do? Well, it solves ijmplc equations up to degree 7 and graphically 
shows you the answers. To solve tor roots, the pmgnim USCS the 
Newton method, which says that it you think the answer (root) to an 
equation is X, then a better answer is Vt(X)/f'(X). KXi t> simply the 
equation you're trying to solve. F'(X) is the first dem am e of tin- 
equation. Perhaps you remember Irom high school ilt.it the first 
derivative of A*X A N is N"A"X A (N-1); the first dem am.- Of 2X A 3 is 
6X*2. 

Let's try an example and solve X A 2« 16 or X"2-16=0. The formula 
says that our first guess of X can be replaced by X-(X A 2-16)/2X or 
(X A 2*16)/2X. Let's try 2 as the first guess Putting in 2 for X results in 
20/4 or 5. Now use 5 in the formula (o gel 4l/i0or4.1.Try 4 1 and get 
32.81 /8.2 or 4.0012. Getting pretty close aren't we? It we establish a 
tolerance (actor, the di ff erence between two suoressh e guesses will 
approach and finally reach thai tolerance rhenumberol iterations H 
takes to reach that tolerance gets converted to a color palette value and 
the initial guess is PSET on the screen in that color value. 

Complex Numbers 

But jutf using different values tor X will only give us .i nice 
colored line— not really worth the. tfforl We need something mat will 
also use the up/down part of the screen, the Y-axis. In previous 
articles about the Mandelbrot and |ulia set) I discussed complex 
numbers, those numbers comprised ol ,i real and Imaginary part using 
"i" (the square root of -1). The Newton formula works just as well lor 
complex numbers Z, remember that Z*X+iY, 

Again, using Z"2-I6=0, our formula is (Z A 2*16)/2Z. Bui now we 
need to separate/ into it- real and Imaginary terms Since Z A 2 
Y A 2»2XYi we can rewrite this as <<X A 2-Y A 2*I6)-2iXY)/(2X*2iY). This 
is a complex number divided by a complex number In simple teems. 
(A»Bi)/(C+Di)=(AOBD)/fC A 2*D A 2)+i(BC-AD)/(C A 2.l) A 2) Nom 
let's look at a 7th. degree equation using C? to CO as the coefficients 
Combining the terms we get 

fCTI'7.*'CfZ-*.fCW!.l'Cfl-t.J'Cl'I-).CJU'J-« 
TCTI'«. *•«•!■*. S*CVI'4.i'C4*I'].l*CJ'I-l.)'C3"I.C; 

There is an easy wa) IO compute the real and imagmarv parts of Z A 7. 
Z A 6, etc. Starting with an initial guess of A*R just keep following this 
repetition 



nu 

nw 

m««n*m>m*m 

m<BTl*>T>-lTt*I7l 

n4 ■*»••?>• in*m 

■n-HD'Htl-lTl'ITl 

m-m-wi-iTi'm 

ITI-XTI-m -ITJ-It* 



nastawti tuuu 

ITl-l 

m*i*m*iri 
iTi<m a iT3>Rn*m 

IT4.)'tTJ*ITl 

iTj.im'iTJ.BTvm 

m*i**ri*i?i 

ttt*«n*iT<<>H*xn 



These types of repetitive formulas are very easy to handle with 

macros. |ust assign KM A and II I -It Notice that all ihe re.il tcrmsare 
the difference between multiplied terms. You would passa location 
and four terms to the real term macro. It will multiply the first two 
terms, save the product, multiply th.-neM two terms, subtract Irom Ihe 
product and store the result in the passed location. All the even 



imaginary terms are twice the product of (wo terms, and all the odd 
imaginary terms are the sum of multiplied terms hast as in the real 
term macro, except that the products an added together. 

I it - take i look again at that equation above thai solves 
everything. The first term in the n um era t oi 1*6**. 7*Z A 7 Express this 

as 6*C7'RT7 and 6'C7*tT7; let Al equal the real part and BI equal the 
imaginary part. The next real part. 5*C6'RT6\ gets added to A 1 and Ihe 
next imaginary part. 5*C6"IT6. is added to Bl . At ihe end of the 
numerator CO is subtracted from Al. In the denominator let A2 equal 
7"C7'RT6 and let B2 equal 7'C7*IT6. Keep adding the real terms to A2 
and the imaginary terms to B2 and at Ihe end of the denominator add 
CI to AX 

Now you have a new complex number (AI-iBl)/(A2.iB2) 
Multiply the top and bottom by <A2-iB2) to get a new real number 
(A1'A2*B1'B2) / (A2*A2+B2'B2> and a new imaginary number 
i(A2*Bl-AI'B2) / (A2*A2-B2*B2). Before you actually divide though. 
be sure to check that the denominator isn't 0; it's not nice to divide by 
and ihe computet will strongly object. Call the new real number AA 
and compare it to the starting A. 11 it's within vour previously defined 
tolerance, compare the new imaginarynumberBBlotheorigin.il 1! It 
it's also within your tolerance, then this new number solves Ihe 
equation and ls a root. PSET Ihe ACROSS/ DOWN location with I 
color based on how many iterations it took to find Ihe root. If either 
new t llue b not Within llie tolerance, you don't haw a root, SO replace 
A and B with AA and BBand start all over again 

The program allows for up to 47 iterations If you haven't reached 
a root within this number ol iterations, lhat point Is either boundng 
between two roots or heading to plus or minus infinity. Each iteration 
rounds otf numbers. Ihai's why I used double-precision for the 
computations. 

The Program 

When the program stalls, you are presented With eight strings 
showing the current values o! coefficients C7 through CO and four 
strings Showing the left) right and top/bottom boundaries ol Ihe area 
you'll be plotting The strings were drawn using macros I developed in 
an earlier article (VI 2) It von haven't seen this article either, you 
really should consider subscribing, the string macros are in Ml- \ I i 
included on this disk 

Change any string value by clicking in its boy. replace values or 
use RIGHT AMICA/X to clear it and type in new values Press 
<enter> alter each changed string When you're ready lo draw, press 
• .i requester will appear asking il you want a small picture (128 x 
128) or a large one (320 x 200). After you select ., s]/e, the picture will 
Start draw tag While it's drawing, you can press any of the values "0" 
through ■' lo change the palette; or press x " to start drawing the 
Other si/e pk run I usually only change size Irom small lo large Also. 
l| any time von can position ihe CUTSOC at ihe upper-left corner ol a 
zoom area, press Ihe I.MB and drag down to the lower-right corner. 
When you release the l.MB. a requester will ask if it's OK lo zoom 
Click in NO, and Ihe zoom box will disappear while the picture 
Continues drawing l lick YES, and a new requester appears asking il 

vou want me SMALL or LARGE size; dick on the one you want and 

Ihe new picture slarts drawing. Al any lime press \ -" io relurn to the 
ienl menu or press "q" to quit the program. 
Ihe Amiga 3000 lias tome features thai are rather cryptic; for 
example, the firs) line in my S:user startup is CPU FASTROM BURST 
This seems to be a requirement lor most of the programs I run; very 
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Few programs require me i« • Rl M this line. H you have jnv problems 
running tins program (and it's best mn From kam i Jw rease the itadc 
to 30,ooo using si ACK 30000 This additional memory may be 
in. rosary lo keep .ill the strings and requesters From bumping into 
eachothei IK theway.youusualK have to cold-boot when you 
change your CPU comnunJ 

The Listing 

Now let's lake a look al Listing! to see how I programmed all of 
this, Since I've already talked aboul many of the routines and the code 
is preth heavily documented. I won't spend too much time on the 
program Because you can toggle between picture ilxe, the Following 
variables need lo^oin several routines 



SMAI I 


: arc.i 








vlength 


128 




32(1 




for right/left 


scaling 














i:» 




320 




stop drawing across 


here 












vlength 






200 




(or top/bottom 


seating 












> length 1 


129 




200 




stop drawing down 


here 












Koffset 


96 









tu center/correct 


the displa\ 












yoffsel 


164 




199 




to center/coned 


the dlsplat 












normalize* 




96 




a 


convert 


Boom bo* i 


Urates 








notnuuzcj 




M 




i) 


convert 


zoom box to coord 


nates 








redraw 







1 




toggle the picture 


ii/i' 













I he PSE1 macro uses tin- offsets to center the small picture and draw 
the large one correctly. The next tour macros compute the real and 
imagman terms and their coefficients 

I he contents of each string butler are converted to double- 
precbion values and stored in their proper locations. Note th.n 
>. bottom is saved twice since this value changes while the picture is 
drawing I he variable Al I IK'\1- is necessary since differenl routines 
are required when the picture has Finished drawing and these are not 
the same as those used while It's drawing. REDRAW is used to toggle 
the drawing, its value is XORd with »1 to determine the current 

picture size. 

Next, all the real and imaginar) terms are computed and 

combined to get Al. Bl. AX >nd B2 The common denominator DE is 
computed and chi it it's o Inen the new complex numbers 

A A and BB are computed Both are compared to the TOI IK AM f 
value ($3ECO00O0,O); you can change this value located near the end of 
the program. It A A and BBare both within this tolerance, the current 
count is ANDed with 31 and used as the color value to I SET 1 he 
.i, ross/down location It not. the count is increased until it gets to 42 
and the program goes to the nc»t point. 

After increasing the Xdbtance by the Xscale, a check is made for 
any messages Ke\ presses go to their corresponding routines «ind 
using the I MB will cause 3 branch to the zoom routine AXAI USCS 

useX/V coordinates to draw ■ box In the complimentary mode. 



you release the 1MB the first requester appears and it you want 
to go ahead it's followed by the second req u e ster asking for the picture| 
size Depending on which size you p»k the proper variable sizes are 

filled 

NEWCOORDfNA MS uses these variables to convert those 
MouseX/Y locations to the proper grtd coordinates and then computes| 
new st.ut and end locations lor your display. At the completion ot 
drawing, the same keyboard options are still available Al I I X i\l is 
cleared so that routines will branch back to N( H\ \V| |.\I instead of 
trying to continue drawing Note the IDCMPaitd window Rags used 
in M\ V\ INDOW to get the proper IIXIMP results 

There are ID palettes ,n the end of the program Fed free to 
modify them in any way. It you want the coefficients or display area to| 
initially appear dlfferentl) when the coefficient menu appears change 
their gadget buffers. And you can modify the requesters by changing 
their text strings, the very end of the listing contains some sample 
equations and their display area that you might want to try. If you 
make any changes lo this program assemble it using AWK as 
NEWTON ASM and Bl INK it as NEWTON.O Run the program as 
NEWTON Ihis program, AWK. Bl INK. and all the required 
'include'' files are on the magazine disk I've also included on the disk 
a pu lure made from enlarging a portion of the equation Z'7-I using 
palette 2 

Don't Forget 

When you assemble or run this program, remember to have cold- 
booted with the line CPU FASTROM BURST in the s user-startup 
script And use the command STACK 30000 if you have problems 
running NEW U '\ Some equations may goto infinity very quickly. 

especially i! you're using large coefficient*; this may cause an overflow 

and crash the program. I've not included a check for maximum values 
since that would slow things down but you might want to add one. 
And finally, while running the program vou can use ihe following 

keys 

s start drawing 

C - return lo coefficient menu 

x - toggle picture si/e 

\' lo" • change palettes 

q - quit the program 



I ABM II 

AUTOREQUISI (Intuition offset -348) 

REGISTER 

al) window • pointer to your window 

■1 bodytexl - pointer to intuitexl explaining your requester 

&2 posilneleM - pointer to left gadget intuitexl 

a3 negatnelexi - pointer to right gadget intuitexl 

do positi wtlags ■ IDCMP flags for left gadget, usually 

dl negati\ ctlags - II X MP flags tor right gadget, usually 

d2 width - requester width In pixels 

d3 height • requester height in pixels 
(returns dO -I il left gadget selected. dO-0 it right gadget selected) 
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.n double pr 



I OS. 1 

include intmacros. i 

" i ■ 
■ ■ 
.• ilpmathmacron. i 

. • . . : 

count equ I 



equ S 






epset macro 






rp 


pc>.al 






dO 


add.l 






move. 1 






sub.w 




dl 


■ 


dfl 












■ 




}&' 


■ 


endm 







10 









) , ft 6 



BIO*. • 'I 

• term4 
-•dp dt . 
■ov«dp erml 

■ 'i .■■■'". 

. . . , , .. 

oovrdp do,d2 ;cern>3 * tertnC 

: ite' - 
■»•■ rave 



rloc. I ■ 



\3.d2 
d0,d2 



;terml • t©rm2 



; . •'■■■■ 






imagteimo macro iloc, 

movedp \2.<s 

movedp \3.d2 ;term2 

muldp .-term: • torm2 

movedp d0,d6 ;savo this 

movedp \4,d0 ;term3 

movedp \5,d2 ;term4 

muldp :tera3 * term3 

movedp d6,d2 ;terml • term2 

adddp Mterml • term2| • (term3 

movedp \1 ; save it 

endm 
getcoef macro iloc.terml. tenn2i,term3l 

movedp \2,d0 ,-terml 

movedp \3,d2 ;term2 

;dp ,-cerml * term2 

lfeq HAKG-4,-4 variables? 

movedp \ 4 , d2 ; t - . 

muldp jt«rml • term2 " term3 



' ■! 






a nan 



M.d2 location 

LoCaC ion 
1 ;S9\ 



■ 


O If no msg) 


. . 




movea. rport (aO) 


aG 






dO 




beq 




: :.al 




move . 


■ 


: 


.-ASCII 


■ 




move.w im. mousey i . 




■ ■ ulymscj 




endm 




■ 




. stack 


; Save st 



; open all 



■ 










. 










■ 










dO.conhandler 








options 










els 










linefeed 










31 










bold: i 










" 






























smsg. 










—ed 






























cmsg 










■ 










. .- SO 




















: oed 










24 










, 


.black 




300C 


color 


lmbmsg 




















i 










loop 










loop 










;op©n a 


screen 


of 320 x 


200 












-.■ 




^» 
















■ode 










- - ■■ 


. 








msg_chock 










9c(m msfl_ • - 










beq.: 
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I's*,d3 :start? 

■ . 

■ 



■ 

• >.-ripct .aO 
■ ■ dp 

•-T (pc) .aO 
convert dp 
c6 

huf ferlpcl .aO 

bs t ■ ■ r dp 

■ 

' .rlpcl .aO 

< : --dp 
c4 

orlpc) .aO 
con vert dp 

lea gadgetfibuf fer (pel .aO 

bsr convertdp 

• buffer(pe) ,a0 
convert dp 
cl 



gad 



■■--rlpcl.aO 
tdp 



I 



■•f (pc) .aO 



gadget lObufferlpc) ,a0 
convertdp 

gadget 11 buffer (pc) . aO 
convertdp 

■ 

' ler(pc) ,a0 
■dp 

■ * 

;draw SMALL or LARGE 

■ 

mov. 

movedp xright.dO 

movedp xleft.d2 

movedp d6,d2 

divdp 

movedp xinc :x scale 

movedp saveybot torn, ybot torn 



move. 1 








movedp 






ytop.dO 




ybot i 


Bubdp 




movedp 


d6,d2 










bra 


ahowit 



fc 





■ 0,d4 


moveq. 1 


















■' \ <aOj 


bne.s 


positive 






«.'','! 1 1 


11, aO 


■ 




move.b 






- • . ' . db 


■ 


■ 


po- 


• l.a2 




d7 






ceat'l; 




empi .b 






zero_check 


cmpl.b 


.dS 


. 


zero_check 




. d$ 



-p dQ.d2 
■ l.dl 
11. dO 



■ 



;sign i 
: » 

■ 

14 
space 



i en<: 



; above '9' ? 
:branc: 

.-branch if so 

:mu5- 
:d0 • 

• 



asl.l 


tl.dJ 




roxl . 1 


11, d? 










roxl . 1 






mowq. 1 






rid 




;d0 -- dO ■ d2 










d^.dl 


» thi 


addx.l 


d6.d0 




addq . w 


- 


. 




116. d7 


: up I 


bne 


■ 




■ 






;n oveq 




.'optional ■ 


! 








■ 


,-erro; 










aO.aS 


■ 






;don't try to 


!■■..- . 


■ponent 


not 






■ 






■ 



Volume 3, Number 4 



A/ 



The product offering continues 

ruins 
The API lor dt scrim inaiing programmers 
($50) 

rokrool image maker 

I"hc simple and effective drawing/ 
animation program ($30) 

ruf 

The h assembly utilit\ ($15) 

Call for details 

Send disk for demo disk in return 

ROKROOT software 

5411 37th Avenue South 

Seattle, WA 981 18-2212 

206-722-6258 fax 206-722-0664 

American Express welcome 



AC'S GUIDE 

SUMMER 

1993 



■•ookinj* for a specific product for your Amiga but 
you don I know who makes it? Want a complete 
listing of all tin- Fred 1 ish software available? Just 
looking for a handy reference guide that's packed 
with all the best Amiga software and hardware on 
the market today? 

If so, you need AC's (<(///>/ for the Commodore 
Amiga, Each GUIDE is filled with the latest up-to- 
date- Information on products and services available 
for the Amiga. It lists public domain software, user's 
groups, vendors, and dealers. You won't find 
anything like it on the planet; and you can get it only 
from the people who bring you the best monthly 
resource for the Amiga, Amazing Computing. 

So to get all this wonderful information, call 
1-800-345-3360 today and talk to a friendly Customer 
Service Representitive about getting your GUIDE. Or 
stop by your local dealer and demand your copy ol 
the latest AC's GUIDE for the Commodore A"-y,o. 



List of Advertisers 



Company 

Armadillo Computing 
AMOS 

Delphi Noetic Systems 
Devine Computers 
Digital Creations 
Dineen Edwards 
Memory Management 
Oregon Research 
Rokroot Software 



Page Number 

15 

CM 

7 

13 

CIV 

CHI 

18 

(:. 
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WHAT'S ON IT? 



AC's TECH 3.4 Disk Includes 
Source & Executables For: 




•F-BASIC 5.0 review 

• Quick Menus for True BASIC 
Programs 

• Time Efficient Animations 
•True BASIC Input Mask 

• Programming the Amiga in Assmely 
Language 

• Have Your Own Custom 3-D Graphics 
Package Part II 



AND] 



D MORE! 



AC's TECH 3.4 
CHECK IT OUT! 



48 



AC'S TECH 



AC's TECH Disk 

Volume 3, Number 4 



A few notes before you dive into the disk! 



• You need a working knowledge of the AmigalXXS (T.I as most of the files on the 
AC's TECH tlhk are onlv accessible from the ("I I 



In order to tit as much information as possible on the AC's TECH Disk, we archived 
man\ of the files, using the freely redistributable archive utility "Iharc' which is 
provided in the C: directory. Iharc archive files have the filename extension .l*h. 

To unarchive a fi\c foo.IJi, type Ihan xfoo 

For help with Iharc, type Ww/t ' 

Alto, files with ItKk ' ktms can be unarchivtd from the WoriBtnch by double -clicking the icon, and inp/i/vintr a path. 



AC'S TECH DISK 

GOES HERE! 

Please notify your 

retailer if the 

AC'S TECH Disk 

is missing. 























We pride ourselves In the quality of our print 
and magnetic media publications However, in 
the highly unHkely event of a faulty or dam- 
aged disk, please return the dtik to PIM 
Publications, (nc tor a free replacement 
Please return the dish to 

ACS TECH 

Osk Replacement 

PO Box 2140 

Fa" River. MA 02720-2140 



Be Sure to 
Make a 
Backup! 



CAUTION! 



I tut iii itit i[.»««il iiml HfHiimiMil njlufr i-4 "■** ii| 

Ac rroemm i« Ar AC1 TECH It^i *< adtiw «ht 

p»**oMiiw.»i.i* <>fit«>jll>>Sreu»ii«r>|«iiinn>ut 

pniffjnti Uim imiuu hm-kttrl di't MGCH The "•« 

i H qtulil) ml prrtonrun. r ul Ihr -itl» m on 

HI, n »*.iiit*J b) >I< |V> luui I'.M 

CuNhM— 1. lo.lfKll Jn.llf-*-..i»ltX.I(tUlKn -ill 

-.« f* tiibtc lot im din. I inditnl. * ."•wqimlial 
tUrTUfOft>u;ii"r'"-i' ihc m* ur miMi»c.>« Ihc ■HI»«w 

MtdMACl ICCHOhI TI-.ijrwin<iuau>B«<(«ilT 

in ill CO 'J I •!-!«• i »t41 • 



Ahfcouth ni*n» i* t« tixbtijiul liWi mJ ilnnwin mv 
Ac AC'.TtOI On* jcc ln«l> red»intMabk. Ac ACl 
TBCH Dfct WmUmJjm CBlfcw— oTIadu irfrtl Bin wtt 

Arrvmnci c-> Oir AC « TECH Dul «rt Mffngh 1'iV* 
fabhuBOM. Ik. ml mn m- ht .hiplx jwd <n an> »*• 
lV|wntM«< *■<--<* ci.<> cm nuii*cdi- mult m -in l> to' 
hBi«ipnV> "< A> A( -. Tl III l> J 

41 Ht. f* rurrmch cireful "Sc™ -irt"| «Hn Kii J»uc 

pn>im\ fhnk turn *i*ki>K> MiKHdinvtUnuctihaa 
can happen Aim he »arriluiuun( ilv>< |*u|nt> nui 
tokl it* »arranl>r» i)T >**« (uanrw>rt najipnwaa ftM 
PuMkMmim. c« «H( of n i ji mi i ii M nipmiMr *i« my 
danafc* ntcMKil «1»le *«enipiini thi> projcti 
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mow . 
is 

sut»5 , 1 « i , d6 

■ I.dl 

roxl.l ll.dO 

■ 

shift_right 

■ i . dO 
roxr.l II, 41 
dbra . s dS . sh 1 f t_r ight 
adj ust_exponont 
dG 

• 4.d6 
or.: d6,d0 

on_check 
cmpa.l 10, a2 
beq.s do_6ign 
aubg.l ll.d? 
ban . s do_s i gn 



laum expoi. 

■ 
:d0 • 
.•rotate with car 
ibranch il no 



;move word 

■ 

n dO 

: any I 
;no 
jdecrease number 
; no d . 



decimal_ad 

novel '$40240000. d2 
moveq.l »0,d3 

d7.decimal_adjust ;do for 



■ . ■ 



: 



do_.sian 

d4,d0 

moveq.w 10, d6 

shown 

moved. 1 rp(p 

pels 

move .1 I 1 

move . w 10. down 
11 

movedp x ! ■ 

move.w «0. across 
12 

movedp 

movedp ybottom.b 

move.w 10, count 
13 

movedp 

movedp 

realterm rt2.a,a.b.b 
imagterme it2,a,b 



realterrn 

lmagterr* J, a. 

realten 

- ■ 

realterm rtS. • 
iroatr an 

;.. . . 

imagterme ltfc.rt; 
realterm 



:add sign to dO 



. ag 



.r.t 



moveq 


■ O.dO ;Cl 


moveq 


• O.dl 


movedp 




movedp 


bl 


Dovedp 


i 


movedp 


1 . 



getcoef al.sixdp.c7.rt7 
getcocf bl.sixdp.i 
getcoef a2.sevendp,c7.rt6 

getcoef b2,sev> : 

zedp.c6.rt6 
J*** <>dp.c6. it6 

xdp.c6,rc5 

getcoef b2.sixdp, ■■■■ 

getcoef al. fourdp.c5.rtS 

Bf bl, fOU! ■::; . 

getcoef a2.flvedp, 

getcoef b2. f ivedp.cS. it4 

i . I : . fdp.c4. rt4 
■ 
getcoef a2, fourdp.c4 , rt ] 
getcoef b2, fourdp.c4. it3 

getcoef al, twodp.cB. rt3 
getcoef bl. twodp.c3. it3 
getcoef a2.threedp.c3,rt2 
getcoef b2.threedp.c3. it2 

getcoef al.c2,rt2 
getcoef bl,c2,it2 
getcoef a2. twodp.c2. rt 1 
getcoef b2.twodp,c. . 



.; - 1 ■ a i ■ 


al.cO 


movedp 




1 : : dp 
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The complete Source Code and 

Execntahles can be found on the AC's 
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William P. Nee 

c/o AC's TECH 

P.O. Box 2140 

Fall River, MA 02722 



Voiume 3. Number 4 



53 



Re Color 



by Dave Senger 



Last December 1 upgraded my Amiga 21XX1 from I Iperatiflg 

System 13.2toO.S. 2.1.Iloveit My new OS is -.lick and full of 
com eniences. and the new Workbench screen looks sharp, with its 
business-like colors and its patterned windows. Thoughtful touches, 
such as the Screen Blanker, and the very well designed Mouse 
Accelerator (at list'), tell me that Commodore is working hard and 
paying .mention to details. 

Along with all the improvements tame an annoyance, howevei 
Most of me icons on my old Qoppiea and I have alotol old flop- 
pies—looked terrible on the new Workbench screen, Ihe change in 
colors (mm blue, white, black, and orange on the old K reen. to grey, 
black, white, and light blue on the new one. often m.ikes icons 
designed for the old screen look like candidates tor the morgue. The 
reversal of white and black to black and white is especially unhelpful. 

Commodore is aware of the problem, and has provided a 
solution— the Kecolor (unction on the Extras menu ot Icon I dit. in Ihe 
Tools drawer. Using this (unction to recolor your old icon- 
simple. Inst drag in icon into Icon! dil's large window, then select 
Recolor from the menu, or use the <Right Amiga>M key combination 
In two or three seconds the icon will be recolored. and .ill von will 
have left to do is save it 

Recoloring half-a-do/.n icons this wav works well enough, but 
recoloring a thousand could get tedious [conEcUl make-, no provision 
lor batch processing. Commodore has made ARexx a standard feature 
of ihe new operating systems, so il would seem reasonable lor 
Commodore utilities to come e quipp ed with ARexx interfaces, but, as 
far as I know. I:'d is the only one thai does 1 be absence of ARexx 
interlaces in at least a lew of these utilities. ,,ich M Iconldit. can't be 
.in oversight Pie need is too obvious I be Commodore people have 
been turning out so much hardwire and software lately that they 
probably iust never got around to it 

I couldn't Hnd i w.iy to use Iconttdii in conjunction with either an 
Amiga DOS or ARexx script to batch-process icons, so I wrote my own 
utility Ul ARexx, which is ideal for the job Wu could write tbis utilili 
in any number of languages, but onlv two— ARexx, and the 
AmigaDOS script language — are available to e\ eryone with one of the 

who are the onlv users who need to recolor 
icons. Of Ihe two ARexx, wHh IU powerful string- and Ale-handling 
Functions, is by far the easJesI to use 

The utility Is called Recotodconuexx, and you will find n listed 

it the end ol Ibis article It can by used to recolor a single icon .il a 
time, like IconEdit. but 1 wrote ii so thai 1 could recotoi many icons in 
one batch, with a minimum ol effort I've used n io recolor over 2000 
icons on dozens Of floppies, and so f.ir the s,npt has digested every 
icon I've led il. including some that break Commodore's programming 
rules There are probably ,i few icons out there that Ihe script won I 
handle I'm sure that I haven't anticipated ill the ways m which an 



Ingenious programmer can break the rules Bui it should recoloi 
o( pre-CXS, 2 icons, and 100% ol the legal ones 

ARexx Requirements 

Tor this s, npt to work, ARexx must be set up correctly on your 
system Both rexxsysllb librar) and rexxsupporl library must be 
available 

Vou Can start AReXX manual!) and load libraries one by one, but I 
use AReXX SO much that I want it available all the time. I added the 
lines below to my Starlup-Se.|iience, so that 1 can torget about details, 
and iusi use the language TheCornmodoreARrxj User's GufoV, and 
the AmigflDOS User's Guide, recommend that vou edit the User-Startup 

script in your S directory, and leave tbe Startup ■ Sequence alone. 

Unless you feel completel) comfortable editing your Startup-Sequence, 

this is good id vice Also, it wouldn't hurt to keep working backups ol 
Kith die-. lint wav. it an editing session goes well off the rails, you 
can always reboot (rom another disk and switch to (be backup until 
you figure OUl what went wrong 

UllBO -■!!.. Mil: 9IR.MUC 



lvi'«.l«>iui: >WIL. 

ftaaldant IUIU pura 

RailOMiI illlil pure 
inito luiuir^n 

■ailijant UUilCCpui* 
■•■Idant UXliTCO pur* 

Raiidant mi :i pura 

Mildant IDITI puia 

Raildant UDOKaltFoiPorc para 
n LU.nn 



Ihe Mrsi line assigns the REXX dm Ice to the Rexxc directory I put this 

line with (be rest ol m\ taslgns ! be first line ol the block loads the 

\Re-x Interpreter, so that it will always be Instantly available to 
execute any commands directed to it The next eight lines make several 
ARexx programs resident On a hard disk system, this saves a iraction 

COnd each time you us»> one. and on a floppy tyften ■ 
iouplcof seconds. The last Una ex* ufc - the I Al rexx (Loads ARexx 
rie*) script In my Rexxc director) I got this script from Memll 

Callaway's The ARexx Cookbook, which gets a lot ot use around here || 
you don't have all of the libraries listed, you caned!) the script or write 

one of your own. 



'• L*L.I* 

'• r. 1-14 at 



u»(iii«i •/ 

W«i> COOOOOH. by Maiilll Call! 



L. 1- ■ taituuppoct. liCiary' 

t* aitaodad (uocllana 1DOI. ate. i •< 



L. J- ■ leoarp lib. library' 

/• Intuition, viiwtawa. gadgati ■/ 
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Breathe new life into your old icons 
with this handy ARexx utility 



L l-r.DOHihllfe.llbiarV 

/' ilo. i*b, cob. and oibai hiFi function* *< 



1 . i • ' t uxut 1 1 . 1 tbtary • 
/• rantlla •' 



DO 1-1 TO * 

ip •mi'L'aL.M 

If -MWCL'.L.ll 



U1I 



CALL Utt.IBIL.1.0, -10.0) 

r i»r l.i failad toopm. 1 



The rexxsyslib. library is loaded automatically when RexxMasI is 

loaded I got ilu' last three libraries listed from one of the disks I 
bought with The ARexx Cooktwk. It you have ihein, all these libraries 
should be in your Libs directory. 

Using Recolof Icons. rexx 

Type in l he script using any text editor, such as Kl or Mfcmacs. 
and save it to sour Re*xc director) (D.i Shell lo any director) 
containing one or mote rCOflS that you would like lo r«olor. Enter 'List 
■ 'into to See tin Info hies in the directors In recolor .1 single icon. 
enter. lor Ins) 

tx Racolorlroc* HyrUa.info 

In recoloi several icons, omit the I lie name, and follow the prompts 
You can recolor only the icons m your target directory, or also all of the 
Icons m allot the directories contained in your target directory. II your 
target director) is a disk's root directory, ind sou make the second 
choice, you will recolor every icon on the disk, including (he disk Icon 
itself (Disk. info), it it has one 

I pieter to use the script as |iiM described, but you don't hase to 
CD your Shell to the target directory Instead, sou van switch the script 
to any directory you like Enter, tor instance: 

^^^^^^^^^ f« ■•color Icooi Wfl iHyDIr/ 

The script wQJ switch to sour target directory and print its name, then 
wait tor sou lOchOOBC whether lo re.olor the kOOJ In that due. I 
Ordj . or also the icons in all child direc t orie s. If sou omit the trailing 
slash (/), the script will treat 'MyDir' BS I tile name, and complain that 
it lacks a Inrbsufru 

If you have a single-drive system, set up AKexx as outlined under 
ARexX Requirements, and copy the SCTIpl to RAM. lo recolor the 
icons on a disk in DI'O:, enter, for instance: 

n UMiiacolotlcoai OfOi 

ARexX nuiltilasks, soyoucan run the script on more than one 
directory, or disk, at I tune If I do this on my Amiga 2000. svhich has 



onls a standard 68000 microprocessor, I don't Save any time since each 
tops ruiisslosver It von have one ot the newer machines with an '030 
or IWO. running the script OH tWOOT three drises at a tune may gain 
some speed. Otherwise, multitasking this script worked tine when I 
tried it. with one exception. I have about a do/en floppies, all named 
AMOS. When I tried to recolor the icons on two identically named 
disks at the same time, using two ditterent Shells, each CD'd lo a 
different driVt), the Operating system got confused and ran both scripts 
on one disk. So as long as the disks have different names, there is no 
problem. 

Vou can also multitask an application or game while the scrip! is 
running, as long as it doesn't need to uSC the sinn drive that the script 
is usmg. You don't have to wait around lor it to tinish |ust check the 
drive light once in a while, so that you will know when to swap disks 
and restart theSCripL 

You have probably recolored at least some ot sour icons, so you 
will have directories containing some icons which have been recolored. 
and others which have not been. What I <U- in tins situation is to make 
.1 new directory in the target directory, by selecting the New Drawer 
item from the Windows menu on the Workbench window. Then I drag 
all the recolored icons, or all the unrocolored icons, whichever are 
fewer, into the new drawer. \ext I recolor the nous in svhichc". er 
directory contains unrecolored icons. Then I drag all the icons back 
from the new drawer bo the original, and delete the new drawer 
Finally. I reposition any icons that need it, and Snapshot them. 

It you have a window full of icons open and you run the script on 
them, you won't see them change colors as they are processed You 
have lo force the system to redraw the icons before you svill see the 
results of your work To see sour recolored icons, wail until the script 
has finished, then either select Update from the Window menu of the 
Workbench screen, or close (he window, then re-open it. 

That pretty well < overs what you need to know lo use the script, 
and at this point you should be able to throw the magazine in a comer. 
fire up your system, and go to it But it you would like to know how it 
works, read on 

The Nitty-Gritty 

The Amiga uses info Hies to generate most ol the Icons von -„■ 
on sour screen. If you save a document called MyDoc with 
favorite wordprocessor, it will probably attach an icon to the fib 
also sat ing s second Hie called MyDoc rnfo Ihis binarj Hie contains all 
the information that the system needs lo display an icon Atntgas 
equipped with operating systems iromO.s. 2 onwards can also 
generate default icons tor files which don'l have their own Icons, and 
these default icons are not stored in into files This second variety ol 
icon never needs to be recolored, which puts it outside the scope ot this 
article 



Volume 3, Number 4 



:>!> 



Recoloring nous means processing Icon into (tics, which you can 

do only if you understand then design I couldn't tmd .1 clear 
description of icon .info files in any one source, but hy scrounging bits 
and pieces of information from several books, and by examining a 
number ol icon .info files with thet directory's Ivpe Hex command, I 
eventually arrived .1! a pretty clear idea of their layout. 

To start with, every icon .info file contains from three to siv 
structures A structure is like a standardized record Coitsislenc) |> the 
key idea in both case- In an Insurance companv stiles on policy- 
holders, tor example, the policy numh'r is always found in the some 
!ik .Hunt in each record. The surname ahv.ns .ipjH-.irs in another 
location Hie policy number never appears in the surname - Ic- 
orvice-ver-.i 

The Amiga's Operating system, and most applications software, 
are chock-lull of structures, .ind von can do almost nOSerlOUS 
programming in C or Assembler without running into them The 
operating system contains a number of libraries full or prewritten 
routines that programmers can use to do hundreds of things such as 
allocating memory, or operating a disk drive They insulate program- 
mers from the hard, complicated |ob of interacting with the machine at 
the deepest level of the naked hardware These routines were written 
to expect much of the data that they pfOCCSS to be pr es e n ted m -i pre 
defined arrangement, called a structure. There are more than 40 
routines thai use- the Window structure, (or instance, and the\ .ill 
expect that the window's width will bedelintd In .1 word (2 bytes) 
appearing Kbytes from the start of the structure 

Icon .info File Structures 

Below are abbreviated listings of the five smut ore- that are used 
in icon Info Mo I have edited this material from Kholt Anderson's 
and Randy Thompson's Mapping tht Amiga, published hv Compute' 
Books, which I find to be a compact and handy reference. The 
definitive Source for this information is the Amiga ROM Kernel 
Manual 1 htdudta and Autodpcs. Third Edition 

First comes the name of the structure: e.g . DtskObfeCt Next 
comes the Size Of the structure, in bytes. The numbers m the <olumn 
under 'byte' give the position, count id in hvtes, 0} each element in the 
structure The initial byte is counted as byte Fhe names of the 
elements are given m their Machine Language (actually. Assembly 
Language) versions. The Ml. heading stands tor Machine 1 anguage, 
and each element b) d e scribed m Ml terminology. A BYT1 .1- 
everyone knows, is S bits. A WORD is 2 bytes A UWORD is an 
unsigned word, which always signities a positive integer, as opposed 
to ,1 signed word, which can be either a positive or a negative integer 
\ I l>\( , 1- I hvtes. An APTK is an address pointer a 4-bvte. or 32-bit, 

Amiga memory address. A STRUCT signifies a complete additional 
structure ernbedded in this structure For Insta tdgel is a 

Gadget structure embedded in the DbdcObfed structure Ofcouj 
do' prefix stands for DiskObject' 
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Icon .info File Blueprint 

I vet) :mn mln (ill- begins uilli a DiskObject structure. Therefore* 
the first word i2 bytes) ol .1 valid icon inlo file is always dojrtagic. 
I his so-called 'magic' numba is hexadecimal RIO (decimal tH,128). 
I nless this word is present, the system will not recogni/c the file .is .1 
valid ieun info file You will occasion jIU tome across other info files, 
named simply into'. Wllh IK) hie name. Thescnpt, Recolorlcons nxx. 
will Ignore them, They are not Icon infb hies, and are outside the 
scope oi this article 

I he DiskObjecl structure contains an embedded Gadget structure. 
and tWO bits in me gg.Hags word of this structure define what 

happens when the icon bt sel ec t ed by clicking on it with the lelt mouse 
button Ihe least significant or rightmost, bit ol the word is counted as 
bitO II hit I. theGADGHlMAGF. bit. b set (to I), a complet.lv 
different Image will be displays), and there will be two complete 
Image structures in the infb file Otherwise, there will be only one. For 
example, many Drawer Icons have this feature, displaj ing an open 

drawer when clicked on If bit I is cleared (to 0), then only a tingle 
Image is used, and the appearance of the selected icon is determined 
b> I'n i) u bit it is cleared (GAIX.I ICOMP), the image will K- comple- 
mented when the icon is selected. Black and while will be reversed, 
and wwill grej and blue IfbitOlssetfCADCBACKFTLL), the 

ted image wBI also be complemented, but an) background area 
that has been changed from grey to blue will be tlooded with grey, so 

th.it the image is not set against a blue background. 

there are three t\ pes of icons which open windows when double- 
clicked on Disk. Drawer, and Trashcan nous The system requires a 
NewWmdOH Structure to provide it with the data it needs to open a 
window. In an icon into hie. this structure comes embedded in a 
DrawerData structure Whether or not the icon opens ,1 window is 

edb) the first byte of the do.Type word ol the DiskObjcvt 
rtructure, immediate!) following the embedded Gadget structure. I 
know what the second byte ol this word is used tor. It the nrst 
byte has a value ol 1 fWBDSK). 2 (WBDRA WER), 01 5 
(WW IARB \gh, the icon opens a window, otherwise it docs not. Of 
course, the VYH stands lor Workbench' It the icon opens a WtndOV. 
the .inlo file will contain a DrawerData Structure, with an embedded 
indow structure. 

At first, I assumed thai if an icon did not open a window, its Info 
hie Would never contain a DrawerData structure Alter all. why would 
■in info hie contain a structure which will never be used" I'lease don't 
expel t me IO answer that question. I haven't the slightest idea All I 
know 1- that sometimes ii does. I d is cov e red this when early versions 
ol Reailotk.ii-.- (,-.\. based on my unassailable logic, somet im es (ailed. 

The do DrawerData address pointer of the iVkObjvct structure 
seems to he a more reliable indicator of the presence or absence of fl 



DrawerData structure lfdo_DrawerData is null (all 32<bib> cleared to 
<*>. there is no DrawerData Structure. Otherwise, there is one As nearly 
as 1 can tell, when this longword is not null, it represents the actual 
address ol the DrawerData structure in memory, before the .inlo file 
was made and saved to disk When a program constructs an icon. Ihe 
various structures and .lata elements required, reside in memory in no 
predefined relationship The programmer can put them almost 
anywhere he wants I le may group them together as a matter of 
convenience, but he is not obliged to When the system assembles an 

icon .inlo hie. it locates all these elements, wherever they mav be, and 

Copies them to the into file in an unvarying, arbitrary order The 
rJo DrawerData pointer, which points t.> ihe DrawerData Structure at 
that moment, il it exists, is copied to the into file as part of the 
I KsfcObject Structure. It no DrawerData structure exists, this pointer 
will be null When the system reads Ihe inlo file from disk to display 
.m icon, do DrawerData is no lunger a valid address, and the only 
Significance or the longword is whether or not it is null 

Three other address pointers are similar When they appear in a 
mlo file, none of Iheir addresses are valid gg_Gadgct Render, which 
pointed to the hist Image structure in memory, is never null, since 
every icon info file must contain at least one Image structure In 
memory. gg_ Select Render pointed in a second Image structure if il 

otherwise, it is null. In Recolorlcons.rexv I t.-M the 
GADGH1MAGF bil ol the gg_Flags word to see whether the icon has 
one image 01 iwo. but you could test gg .Select Render for null loget 
the same information- In memory. igJmageData pointed to the initial 
byte ol its Image structure's bitplanes. This pointer is never null, since 
an Image structure without image data serves no purpose 

At last, we are ready to describe the arrangement ol structures 
and data elements in an icon into hie Hie first element is always .1 
DiskOb|ect structure, with its embedded Gadget structure II a 
I InWerData structure (wfth its embedded New W m.low structure) 
exists. ]t immediately follows the- DiskObject structure. The first Image 
Structure Immediately follows the DrawerData structure, il it exists |( 
not, it immediately follows the DiskObject structure. The image data 
lor the first image, organized in bitplanes. immediately follows the 
hist Image Structure It this is a dual-image icon 1GADGHIMAGE), Ihe 
second Image structure Comes right alter the last bitplane, ,\mi is 
immediately followed by its bitplanes ol image data Following these, 
there may or may not be additional data elements in an icon .inlo file, 
but none of them concerns us. 

Rule Breakers 

Vie Amiga ROM Kernel Reference Manual. Ubnrie*. Ihifd Edition 
specifies on page 353 that the image depth (ig_Depth, the number of 
birptant 1 in image must be- Iwo. However, some icons break 

this rule Ihere exist Illegal icons with only 1 -bitplane per image, or 
with more than two. The System will display these icons, and usually 

artrtOt tell by looking al them that the) are illegal However, a 
program intended to recolor icons cannot assume that the images will 

bIh ays be 2-bitplanes deep, and Recolorteonsjexx docs not On the 

same page, the manual ,tls.> specifies that ig_ I'lanePick must be 

0& 1 both set. hit-. 2 through 7 dear. ■■■. big that Only Rilplanefl 

and Bitplanel are to be used TWs rule is also sometimes broken 



Volume 3, Number 4 



57 



Bitplones 

You probably know already thai the earliest Amiga models up in 
Ihe Amiga 3000 use 32 color registers to hold the colors that jrv 

displayed on any xmn Later models, such as the 1200 and 4000, 

equipped with tin- new l u-tom chips and the latest operating system. 
have ZS6coloi regtstej - i schol these Q ngtaten is identified by a 
number iium ii to 31 in binar) . these color register numbers range 
from 00000 to Mill. Any color register can bo identified by .i Writ 
number. Each pixel displayed on the icraen Is assigned one ol these 
numbers, and these data one organized in bitplanes. A screen that uses 
onl) two colore needs onl) onebitpltneiBtophmeO \ "Color icreen 
um-s five 

& two-color screen uses registers and i. so th* color 

register number nt nn pixel can be expressed in only one binary bit. 
Imagine a two-color imago which is 1 9 pixels Wide by 10 lines high 

Ihis image tan be represented by a bitplanein which each horizontal 
lintct the Image corresponds with w-biwui the bitplane. giving i total 
of 190-bib lot the entire linage However, 19-bttsis an inconvenient 
amount ot data to fetch (rem memory Since the earliest Amigas (etch 
one word, or I "-bits ol data trotn memory at a lime, bitpl.im-s were 
designed so that each line ot an image is represented by some whole 
number ot words in the bitplane. i ailed the word width. One word, or 
Ift-biLs. is nut enough to represent 19 pixels, so each line ota l»-pi\el- 
wide image i-. represented bv two words, or 32-bits in the bitplane. 
The unused bits Ln each line are ignored bv the system, and ate 
conventionally cleared to Oui 19-bit try Wline two-color image is 
represented by I bitplane thai is 2il words, or Cii-bits. long 

Conventional Workbench screens use two bitplanes. and can 
display four colon* so all legal icons so lar also have two bitplanes and 

few motors. The image dau for one hnagc oi .i legal icon consW of 

BitplaneO, followed by Birplanel The binary number Identifying the 
color register assigned to any pixel is tormevlby writing the bit (rom 
Bitplane 1 lor that pixel, then writing the bit (rom the same position in 
BitplaneO. Below i- .i ltm-nl decimal digits representing Ihe color 
register number of each pixel in one Uneol a h' pixel-wide icon image. 
followed bv lis equivalent binan rcprex-ntation m BitplaneO and 
Bitplane 1 

■ajjiiDDDuiiioDia color R»ai*t-i immh 

»aO0MM>lI1BS4111MMOOMMHM lltp'.utC 
mnocooaiouaiiiMMMMMMM nipUu: 



lhe hexadecimal equivalents are IM71C000 for BitplaneO, and 
MOnCOOO for Birplanel 

Notice whal happens when % on reverse the order ol the bitplanes 



bit from BitplaneO, nusgh/es-Ol, which is the buuuy equivalent of 

del irnal 1 It vim reverse Ihe bitplanes . the same procedure will give 

binary 10, which is decimal 2 However, If both bits are cither or i to 

begin Willi, vou get the binan number 00 (dcvimal 0), rat II (decimal 

3). whether Ihe bitplanes have been reversed or not The standard 

default color- on the new Workbench screens tor color registers 0. 1,2, 
and 3, are grey, bl.uk. while, and light blue Thai is why Iconldit and 
Recolorlcons rexx switch the black and white colors, bul leave grey 
and blue as they were, when Ihev re.oloi 

Recolorlcons rexx rnolors kona bj reversing the order ol 
BitplaneO and Bitplane) in each icon linage lb do this, it musi 
compute the length in bytes ol each bitplane. which i< the word w idth 
or number ot words per image line, rimes two bytes per word, times 
the height, or number ol lines in the image On page 22" the Amiga 
ROM KrnwJ Kr'.rpi. ,■ Mmusi / Ibnrries, Third Edition, gives this 
formula lor computing the word width 

Motouatb . u>idth < in ; i«i 
1 take it thai ihe slash (/( character represents ,m integer division 

operator, since that i- the only way me formula makessensc in that 
case, this formula is incorrect it produces ■• word width value which i- 

one tOO large in those , aSCS where the W kith rS U exact niulnple or 16 
pixels Ihis becomes obvious if you work through Ihe formula with a 

Width value of a 

I use this lllghtl) amended formula 

«trdW16tt - M"lflI6 . Ill I 141 

So far. it has always worked 

RecolOflcons.rexx 

I won t provide. i full) detailed. AKe* c tutorial style explanation 
•cript, since that would take up too much -.pace It you Have at 
least a beginner's knowledge ol AKexx. VOU should have no trouble 
following along ii vou need some help getting started with the 
language, vou might checkout Merrill Callaway's excellent tutorials/ 

articles m back i^ues of this rnagarinej his The ARrw Cookbook, and the 
Abacus book, UxfrU* ARea D*l Ihe Amiga, byChns/amaraand Nick 
Sulinan. I have a couple of other reieren.es. but I've used these the 

Here is how lhe script works Ihe first two code lines 



p*iui ik latum* 



JJUllOOOMHI lOlHOOOOOBOOOOBflOO M» lltf lui.O 
NMMNfliiiMOiii»ooeaao«oao«e ■•« iiif luai 



NUlDOttUllHIlJI 

COJIJOCOMIUIOIIIO 



• lip;»a»« rvvorsad 
OthjlMl onU. 



lhe line of decimal digits just under the reversed bitplane lines 

Contains the new COln register numbd tor each pixel I ot 

comparison, I vepul Ihe original Uneol color register numben |uat 

under it V\ herev« there was ■ I in the original line, there i> now a 2 in 
the new one. and c ..i>a 2bl the original, there is a 1 in 

the new one IheiK.ind )s remain unchanged Here fa why it happens. 

number tor the third pixel, for Instance, 
In binary- form by writing the third bit from Birplanel, then the third 



get all thech user t\ ped in alter rx Keiolorlcms when he 

started the s.-npt. and remove an) unwanted -paces horn each end ot 
thesinng lithe string has an] i ileft.thenexl 15 code fane* 

the remainder into a p.ithn-vnie and ■ file name, change lhe 

script's current dii e pathname, if ll 

exists, using the PRAGMAf) function, and retrieve it 1 - name at a string 
called curdirpauY Otherwise, rh* script |uat retrieves the paihn 
the current director) it Inherited from the 

If a valid into Me name, having a Info suffix, exists; the script 
calls ihe internal (unction. SwapBitplaneM). which reverses Ihe or.ler 
of the first two bitplanes ot one or both images, it it can ii there I 
We nan pi lets the user choose whether to recolor all the icons 
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In the current directory only, or also all icon* mall directories 
contained in thecunenl director) ihrn ii calb the procedure, 
RecolorO. 

RecolorO retrieves the pathname (curdirpaih) passed tojt. ihcn 
once again uses the PRAGMAQ function to change to the specified 
director] Ihe first time it does this, It doesn't reall) change anything, 
since the director) ii changes to was the script's (not necessarily the 
Shell's) current directory alrca.U 

Next it uses theSHOWtMIU) function to get a list called 'files' ol 
.ill the files In the current directory, only some of which will be Info 
files it uses Ihe slash (/) character to separate file ii.nn.-~. since this 
reserved character Is never used within a file name Some other 
characters, such as the colon ( ), would also work 

Unlike someC director) <Mimn.in.is, thi-st khmuko function 
does not allow the use of wild cards', (e.g.. 1 1st »? info'), so you cant 
use it to retrieve a list ot* only Info files Instead, info file names must 
be located within and copied from me complete list ol .ill the file 
names In tin* target director) that the function produ 



the directories in thecurrrni directory, once again using the slash 
character to separate the names, 1ms time, since .ill ol the names in the 
list produced b] SHOWD1R0 are needed, so that the slash character 
can be used hi [tssU .»s .1 parsing marfcer, the PARSE Instruction is able 
to extract mixed casedlrectory names ha each directory nunc is 
re tri eved, the full pathname (nextdlipath) is made by adding the new 
directory name to thecunenl pathname RecolorO Ihencalla Itself, 
passing the new director) pathname to the new' invocation of the 
RecolorO procedure. The new invocation .it RecolorO recolor. all of the 
icons in its new current directory, then makes a list of all the directo- 
rs. -. it finds there, and calls RecolorO again foe each of them 

iius is the most common form of recursion. Each invocation of an 
ARexx procedure maintains its own separare table of internal 
variables, which arc not accessible toother parts of the script, not 

to oilier Envocationa ol the same procedure, unless mey sre explicitly 

l"\t*C^*SI *l ffowet er, these internal variables arc* made available to 
other internal functions called by the original procedure The RecolorO 
procedure calls ilselt our and over, until it has reached every 
director) contained in the original, and though each invocation of the 
procedure USeS Several variables such as 'curdtrpath*. 'files', and 



I wrote the program so that I could recolor many icons in 

one batch, with a minimum of effort. I've used it to recolor 

over 2000 icons on dozens of floppies, and so far the script 

has digested every icon I've fed it, including some that 

break Commodore's programming rules. 



I wanted to retrieve and print the info filenames in their original 
mixed case form The system creates info file names using the lower 

Case form Of the suffiv. but users sometimes edit them Sin..- I don't 
know a way tO make the PARSE instruction case-insensitive, the script 
emulates this capability using the INDEXO and I ASTFOSOfufl I 
It makes ^ I IT! R * \M copv called utiles' of the string files' 
Starling from the beginning, the Script searches ufiles lor the substring, 
INFO/' Then it searches backwards for the first slash character This 
gives the position "I the info file name within the stung utiles . which 
is the Same position that the filename has in 'files'! from which the 
original mixed Case fife name is .vir.n ted Including the period and the 
trailing slash in the parsing Substring INFO/', prevents errors when 
odd lilt* names nidi as Information informers into' appear in the file 
list, since slash dwacfen occur only si the be ginn ing and end of each 
tile name As each .info file name is retrieved, the script calls the 
internal function, SwapBitplanesO- which recoton the icon by 
reversing theordei ol the first two bltpiancs i" 1 1 until all the 

into hie* in the current directors have been p r oce ss ed 

If the user has chosen to also recolor the 1.0ns mall child 

pt uses the SMOW I )JKO function to make a list ol all 



'ncwdir', which have the same names, their contents are unique (0 
each invocation of Recolor!) The only exceptions are the EXPOSEd 
variables, choice', and onlvlicon'. 

Recursion is subtle and a bit Irickv to handle, but it is very 
powerful I he 1X1 limp thai retrieves each new directory name, makes 
the new directory pathname, and performs the recursion, consist- of 
only five lines fhese lew lines contain all ol the logic by which the 
script snoops into every nook and cranny of the directory tree 
contained in the original directory, no mallei how many branch.-, it 

id tracks down every last Info file 11 y/OU are interested in 
recursion. Merrill Callaway described another type in his article, 
Recuisive Function Calls in ARexx. in ihe V 7 3 issue ol Am.) 

tiling, in which he presented A program that uses recursion to 
solve the so-called "Coconut Problem " 

[he internal lunction. Sw.ipHitplanesO. and three subsidiary, 
functions, do the actual work ot reentering the Icons SwapBitph 
first opens ihe >p. file it it can. then reads the lir>! word to 

908 il it is the 'magic' number, hex L110. which identifies the file as a 
true icon into hie [hen, it reads the gg_Flags word and tests the 

liiMACI-bit (bit I), lose.- it this is a dual-image icon Next, it 
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check* the first byteof the do rype word, to sec it this kon opens a 
window when double-clicked on. Originally, the idea was to see 
whether or not tin- info Hie contains a PraworData structure, so thai 
the script win be able to find the beginning of the first Image structure 
Since H is possible for an kon info file which does not open a window 
to contain a DrawerlXita structure, this test is unreliable and unneees 
sary. but 1 decided not to remove it, In case I ever wanl to use the 
information it pun ides (the kon type) for .mother purpose. Next, 
SwapBitplanesO Findsoul lor sun- whether or not a Drawer I lata 
structure exists by testing (he do I >rawvrl)ata address pointer for null. 

Since SwapBitplanesO now knows whether or not the info file 
contains a DrawerData -(111(1011', it can figure out how many bytes to 
SEEK forward to arrive at the third word of the firs! Image structure It 
tails ReadlrnageStructureO. which reads the ig_ Width, ig_Height, and 
|g Depth words, and uses the first two to compute the word width, 
then the bilplane length 

If the Image depth (the number of bitpl.uu-si i> two or more. 
SwapBitplanesO now calls Swap2fl Swap2| | SEEKs forward to the 
Marl of the image data, reads the first two bit planes, and writes them 
back in reverse Order This switches theiolorsbl.uk ,md white, but not 
grey and blue, tor reasons I explained under Bitplancs. 

If the image depth is only I. the icon image consists ot only the 
iir-i two Workbench colors, grey and black. SwapBitplanesO calls 
Invert 10, which swaps these two Colors b) switching all the Obits of 
the single bitpl.ine to Land all the I bits to 0. The microprocessor is 
pro* ided with I NOl instruction, which does JUSI that, but ARexx has 
no equivalent function. However AKe.x's BITXORO function can be 
made (0 give exactly the lime result. This hinchon examines two 
strings and compares them bit by bit It both bits in ihe same position 
are Os, or both are Is, the function puis afJ in the equivalent position of 
the Output String, 11 either bit is 0, and the other is l.a 1 is placed in the 
output stnng It you DSC BITXORO to compare any string with a siring 
of the same length in which all bits an* sot. the output string will have 
a in each position where the original string has a l.anda 1 in each 
position where it has at) ll you provide .111 empty string (")as the 
second siring, and also provide I pad byte in which all bits are set (hex 
ill m i \i>Kt) will automatically generate ■' comparison string ol ^"~ 
correct length m which all hits .ire set. This gives exactly the Same 
result that the microprocessor •- NO! instruction would produce 

Invert 1() swaps the two COlotS (grey and black) ol illegal kons 
with singlebitplane images 1 his certainly changes the appearance of 
the kon, but it is not the same as swapping a legal ion's black and 
white colon! Chan u won't come across an) sirtgle-bitptanc 

but it you don't want the script to do this, you can switch of! 
Invert I (1 b\ changing the \ aiue ol Invert to at the start ot 
SwapBitplanesO 

If the non has a second image. SwapBitplanesO SEEKs past am 
unused bitptanes from the lirst image lo the third word ol the second 
image structure and processes the second image as already described. 
Finally, SwapBitplanesf 1 closes the . When the 

last kon has been recolored, the script EXTTs 



ARexx Procedures 

I |ust want to point out a subtlety in the way EXPOSEd variables 
work in *\Rexx procedures. Understanding it ran MVC VOU Some pain 
when you develop your own ARexx scripts Ihe RecolorO procedure 
Uses two EXPOSEd variables, 'choice', and 'onlvlicon' choice' la used 
in Recolor(). but 'only 1 icon' is not So why does 'only I icon ' need tobe 
dedared as an EXPOSEd variable? 

Ihe answer is that it it is not. the internal function. 
SwapBitplanesO, Which uses only 1 icon', won't work properlv when il 
is 1 a lied by Recolort). 'only 1 icon' is assigned a value near the start ol 
the script. When SwapBitplanesO is called from the early part of the 
script, not from RecolorO. 'onlvlicon' 1- available, and SwapBitplanesO 
works fine. But when it 1$ called from RecolorO, SwapBitplanesO 
behaves as though it is part of the RecolorO procedure, so that it is 
protected from variables which are not available to Recoloifl Since 
onlvlicon' b assigned a value outside ot both RecolorO and 
SwapBitplanesO. '< must be EXPOSEd by RecolorO to make it available 
to SwapBitplanesO This nuance tripped me up as 1 » IS developing 
Recolor Icons, rexx. 

It von want lo check this out for yourself, here's how I dil 
Recolorlcons.rexx. removing 'onlvlicon' from the list ot EXPOSEd 
variables in RecolorO. Now, run Recolor Iconuexx on a directory 
containing My info file named simply '.info', with no preceding file 
name When tlie script offers vou a choice, enter either I or 2 You Will 
find such tiles in the root directories of many disks, such as the Fred 
Pish series ITiese files are not true icon info files, SO they cannot he 

: nl Instead of reporting this information and continuing. 
ARexx will generate an error, complaining that onlvlicon' has not 
been assigned a Boolean value, and halt the Script ll you try the same 
thing with an unedited version of Recolorlcons rexx, il will work line 

Solving the Next Half 

Well, thai takes care of all the old icons Once you have finished 
vising the script, your Workbench should he looking better But at this 
point, we haw solved Only the first half of the problem As long as you 
continue to use old programs which generate icons, such as 
WordPerfect, you will keep on creating icons that need lo be recolored 
l:\en if you can do the job quickly, whv should you have to bother' Ol 
course, one solution would be- lo replace all your old software, but that 
would be a lot of trouble and expense. 

Fortunately, there is a better way It 1- burly easy to customize 
programs so that, within limits, they w ill generate almost ,m\ icons 
you like In my next artiile. Re Color Revisited, 111 provide several 
ARexx scripts thai \ou can use to solve this problem permanent i 
WordPerfect and some other programs, and I'll describe a method 

which v i'ii will be able lo use tocuttontize most ol youi other old 

software If the idea appeals to vou, don't throw away the- magazine 

11 need some 01 me information bi this article to understand the 

tC In the meantime. I hope you enjoy using Recolorlconvre«. 
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Listing 



pecolc 



■ 

PlCfl: i all comr'- 

intact in any <l 

• - .. , 

programs written (or pre-O.S. 2 versions c I 
• ■ ■ black and 

colors, bo th.r 

' ' ■ 



ARexx is properly set up on your 
. and tha' I 
I /, CDo Shell to a directory com 

/* icon, eni natance: 

■ Recolorlcons HyFlle. into 
■ 

To recolor several icons, a ame. and 

/* follow the prompts. 



lor * by swapping two bltplanes of */ 

rig clack & white colors. If .info 



■ 



;t. swaps second "/ 



lion fix* <o»e icons which */ 

eSj such as the one that looks like •/ 
a book with the title 'Doc Pile' on the cov> 

'_<i Fish disks. This icon •/ 
'••ad of two. so if the first Image 

structure specifies a depth of 3 or more, the script •' 
mly the first two bltplanes, andSEEKspa ' 

Mai bitplanefsl before reading the second •/ 
• ire if there is one. then swapping two '/ 
more Ditp.anen . ■ 

:. of the ROM Kernel Manual. LIBRAHIES 

- page 353 thai ■ depth MUST 

MUST be 3. This icon uses an image 

depth ot 3. and sets Planepick to 7 (all 3 least slg- 

i?t. signifying that all 3 planes 

used . : ■ i- . . ■ .- • ■ ■ for icons designed for 

pre-Vetsion J "OS's. Oddly enough, only the first two 

bltplanes for each image cc; jedata. Each 

L. « 

on also works w.th icons which use */ 

-^ges, which are also illegal . */ 
tw lanes to swap, so •/ 

'plane, f 1 ipping ones •/ 
leh swaps the two •/ 
colon; . * 

.th icons, other than •/ 

lArtHACE, whichhavea'/ 
; Data structure. Script checks do_DrawerData V 
■ill. and. if not null. SEEKs past "/ 
.ituretoget intofirst Image structure. 



PARSE ARG infc: 
infofile=STRl> 



< file name, if an. ■ 
/■• Strip upacos from each 



eck to see if user has specified a dif fere:.' ' 
factory. If so, obtain pathname and filename. */ 
/■ andchange to newdirectory, if possible. 

slash^LASTPOSl ' . ie) 

colon.IASTPOS l 

.iBh>0THENDO 
curdirpath^Lfc! 

■rrtinfofile.LEfKTHdnfofileJ-slash) 
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-ACHAt 'd' . 


SAY 'That get sit. So long ! * 


END 


EXIT •.:.-• 








rial functions follow 


-'UTTht intoflle! -colonl 




■•'...;.:: 


Recolor: pi* ■ • 


:e arc curdirpath rectory 


curd :-AGHAt'd'l /• Get lull pathname c ■ 


pathnap.'- ■ 


director ' 


: ( curdtrp ; r 


IF BIGHT! curdirpath. 1) = ' :' THEN separator- ' 


- ■ ■ 


ELSE separate: 






i . 


• • THENanlylicon=0 


■ * 


ELSE onlylicon=l • If 




V 


...... . . ...... 

• 

/* Hake UPPER CASE copy 


IFonlyliconTHFJ: . 


IPPER(RIGH1 info! 


• 


SAY 




SAY "File name must have a ' .info' suffix. - 


■ 


"Sorry, no can do!" 


DO ■. Eo>0 • Extract 


r 20 ' Quit • 


■ 


END 


■ . ■ 


SAY 


IF info>0 THE! 


CALL SwapBitplanes 1 i 


■ ; les, info! 


SAY 




SAY "That gets it. So long!" 


• 


ex : •_..■• 


• ,. ,■ 


END 


or swaj 


ELSEDOUNTlLchoice:l i choice=2 


END " - 2 colors o< 


SAY 


bitplanr • 


SAY "Your cui : " 




SAY 




SAY curdirpath 


:es 


SAY 


DRC" 


SAY " You can n MS IN THIS DIRECTORY 




ONLY 111 , * 


N DO 


SAY "or also ALL ICON;- 


•Gel directory 


SAY 


■ * 


OPTIONS PROW . . or to quit . 




PULL ch 


■ 


Choice 


* - ; new 


IFchoic* . •_■ X2CUB] THEN Ex: 


• 


END * ESC »;■■ * ■ Jul! ■ 


nex- 




CALL Recolor (nex' ' Recolor 


IFchoice^THENDOUNT!: Y' N 


directory •/ 


SAY 


END 


SAY " Script will recolor ALL ICONS IN THIS DIP 




TORY." 


END 


SAY -AND ALSO IN ALL CHILD DIRECTORIES. " 


RETURN 


INS PROMPT " "hat you want v 


SwapBitplanes: 


PULL YcsNO 




YesNo=LEFr<COHPpESS(YesNo) . 1 ) 


Invei nages. 


END 


' • 


THEN DO 


IF -OPEN! -pa' THEN DO/" Try to - 


SAY 


spe 


SAY "No Icons recolored. " 


SAY "Can't find ' "curdirpathl (separator 


r • t ■ 


". Sorry, no can do!* 


END 


IF onlylicot. r 20 ■ Quit * 




RETURN 


SAY 




CALL Recolor fcurdirpn' 






ADCHI'patchHl«'.2» of DlokObjcct 


SAY 


struct u i • 



6? 
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•..C'EJIO) THEN DO • If not icon .info 


CALL ReadlmageStructui- |1 ' :-riage structure. 




. i -•• * 


■ 




SAY "' "curdirpathi lei : 


Swap2 1 1 




* ' is not a true icon . . le. " 


' THEN CALL InVMtl < I 




LOSBCpat 


pa rat or 1 1 inter 




IF onlylicon THEN EXIT /• Quit •/ 


■ond single bitplane not inverted." 




RETURN 






END 


x=CLOSE( 'patchfile') /• Close patched file 




/■If you don't want .info files listed as they are 


/ 




process-? 


RETURN 




/• disable next line. •/ 


leadlmageSi * 




SAY -Recoloring "curdirpathl iseparator! tinfofile 


width ■ rd word of Image 




x«SEEK('pat .4) /• Gadget structure 


truetui 




embedded ■ 


helg) 




flags^READCHfpatchf ile' .21 ' 1 :i DiskObject 


deptt ■ ,2) ) 




structure "/ 


wordwidth- (width. 1 51 %16 




GADGHIMAGE=BITTST*flags.l) /« Dual-image icon?? 


bpLength-wordWidth' 




•/ 


RETURN 




WBDISK-1 


>wap2: 




WB DRAWER* 2 


/• SEEK past end of Image 




WBGARBAGE*5 


cructUl 




- EEK( 'patchf ilo'. 30) 


BtartBitplaneO -SEEK ( 'patchf i le' . 101 




ture •/ 


a«READCH; . npLength) /' Read 2 bitplanes •/ 




typeiC2D(READCHCpatchf lie' . 1> ) /' Does icon open 


ADCHl ' pat chf i le* . bpLength) 




iow?? ■/ 


x»SEEK('pa- . r.tartBitplaneO. 'begin' ) 




■ ype=WBDISK 1 type=WBDRAWER 1 type ^WBGARBAGE THEN 


x-WR] Mle'.b) 




windows 1 


iltplansa 




ELSE wmdow-0 


x=w? . .a) /• — in reverse order 




XBSEEKCpatchflle-.nl rData struc- 


/ 




ture exist?? •/ 


RETURN 




do_DrawerData=C2D(READCHrpatchr 


tli 




• : f icon opens a window when double-clicked on. •/ 


/■ SEEK past end of Image 




/• or even if it doesn't open a window, but •/ 


• • 




/ • contains a DrawerData struct . . SEEK • / 


startBitii y.{ 'patchfile' . 10) 




/* past DrawerData structure and into Image structure. 


a=READCH bpLength) '• Read only bitplane 
/ 




/•i t SEEK into image structure ' 


•PP'Xl * ;nvert •/ 
.'begin') 

. t« back • / 




IF window 1 do_DrawerData- = THEN 






.68) 






SEEK! 'patchf ilo'. 12) • oirdwordof 












then rea;: ' 

lFdepth>l THEN CALL Swap2 ( I 


■ again. " 

/• Quit •/ 




ELSE IF Invert THEN CALL Invert 






_^^^^^^^yp^_^^_^_^_^_^_^^_^_^_^_^^^^^^^_^^^_^ 






x- SEEK C pal 






SAY curdi rpath 1 1 separate: 






ingle bitplane not inverted.' 


Complete source code can be found 




END 


on the ACs TECH disk. 




: t icon uses 1 images, then swap second pan ol ' 






or invert second single bitplane) . also. 


Please write to: 




Dave Scnger 




ADGH1NAGE THEN DO .mage 


c/o ACs TECH 




exist ■ 






. (depth- 


P.O. Box 2140 




2i-bpLength.4> 


Fall River, MA 02722 




EL?: 'patchfile* ,4l ->3rdwordof 






2nd • 
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Maintain your edge 

AC's TECH provides you with advanced insight into Amiga technology; 

now subscribe to the magazines that will always keep you up-to-date 

on the newest Amiga products and late-breaking Amiga news. 




Subscribe to the best resources available for the AMIGA 



Amazing 
Computing 




Amazing Computing, the tirs! 
monthly Amiga magazine, 
remains the first in new product 
announcements, unbiased 
reviews, and consistently in- 
depth reporting. AC's unique 
columns like Roomers and 
BugBytes, step-by-step program- 
ming articles, and entertaining 
tutorials have made it the 
magazine of choice with devoted 
Amiga fans. With AC you 
remain on the cutting edge of 
Amiga product development. 




AC's GUIDE AC's TECH 




\C \\r\\/AAUGA 

fife- 




AC's GUIDE remains the world's 
best resource for Amiga product 
information. A compilation of 
new product announcements 
from AC and exhaustive re- 
search, AC'S GUIDE is a con- 
stantly updated reference to the 
ever-changing Amiga market 

With an AC SuperSub, you will 
receive 12 issues of Amazing 
Computing and two issues of 
AC's GUIDE at a tremendous 
savings. 



AC's TECH was the first disk- 
based technical magazine tor the 
Amiga. This quarterly collection 
of programs, techniques, and 
developer issues has been 
created for the Amiga owners 
who want to do more with their 
Amigas. If you want to expand 
your Amiga knowledge beyond 
the ordinary, then AC's TECH is 
a must. 




Complete your Amazing Computing library* and FRS collection. 

'white supplies last 



Mail or fax (508-675-6002) the enclosed order form or call toll-free in U.S. or Canada, 
800-345-3360. Foreign orders please call 51)8-678-4200. 
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AC's TECH 



Mail to: PiM Publications Inc., P.O. Box 2140, Fall River, MA 02722 



«tO. The -Amazing" AC publications give me 3 GREAT reasons to save! 

Please begin the subscription(s) indicated below immediately! 
Name 



City 



State 



/;p 



VISA 



DISCOVER 



Discover Visa MC * 

Expiralon Date Signature 



Coll now ond use your 
Visa, Master Card, or 
Discover or fill out and 



PIMM circle 10 mcecate this ts a New Subscription or a Renewal S©nd in this Order tOfm 1 



US S27.00 



1 year ot AC 



1-year SuperSub 



1 year ol AC's TECH 



12 big issues ot Amazing Computing! 
Save over 43Tfc off the covet price! 



AC ♦ AC s GUIDE— 14 issues total! 
Save more than 45% ot the cover prices' 



4 big issues ot the FIRST Amiga technical 
magazine with Disk! 



Canada/Mexico $34.00 I I 
Foreign Surface $44.00 



US $37.00 



Canada/Mexico S54.00 £ 
Foreign Surface $64.00 Q 



US $43.95 | | 

Canada/Mexico $47.95 I I 
Foreign Surface $51.95 I I 



I 



Please can lor all other Canaria'Me>ico<1oreion surface A Air Mail rates 
Check or money order payments must be tn US lunds drawn on a US bank, subject to applicable sales lax 



r Jl 






NAME 



ADDRESS 

CITY 



DISCOVER __VISA M/C *. 

EXPIRATION DATE 



STATE 



HP 



SIGNATURE 



Amazing Computing Back Issues $S 00 each US. $6.00 each Canada and Mexico. 

$7 00 each Fore^n Surface. Please list issue) s) ^^_ 

Amazing Computing Back Issue Volumes: 

Volume 1-S19 95" Volume 2. 3. 4. 5. 6. or 7— $29.95' each 

•Al volume orders mml include postage and handkng charges $4 00 each set US. $7 50 
each Mt Canada and Mexico, and $10 00 each set tor foreign surface orders. Air ma 



\( ,'* 7 IX .7 iJiMIGA Sine* Kmk* )u*1 SI4.9SI 

* Pltk ant A Umka fur unit 



u'.-i: 



■va lauM 

V1.1(Phh«h).V1.2.V1.9.VI4. 
V2.1. V2.2. V2.3. V24, VJ.1. V3.2 




DISCOVER 



Freely Distributable Software - Subscriber Special (yes. even lh« new ones!) 
1 to 9 disks $6.00 tach 

10 to 49 disks S5.00each 

50 to 99 disks $4.00 each 

100 or more disks $3.00 each 

00 each for non subscribers (three disk minimum on all foreign orders) 



AC» I 
ACM 
\m.i/liii>mi Disk; AC« 
*C»7 
*C»9 
AC»" 
ACi13 
ACfliS 



Source 4 UsBngt V3 8 4 V3 1 AC? 

Source 4 USWIOS V4 S 4 V4 6 AC«4 

Source 4 Laono* V4 9 *C»6 

Source 4 Latino* V4 12 4 V5i AC*8 

Source 4 Labng* VS 4 4 V5 5 AC»I0 

Source 4 Usengs V5 8. 5 9 4 5 10 AC«12 

Source 4 Litf-ngs V6 2 4 6 3 AC*I4 
Source 4 Latinos V6 6. 8 7 6 8 4 6 9 



Source 4 Untngs V4 3 4 V4 4 
Source 4 Lttinos V4 7 4 V4 8 
Source 4 lAUngs V4 10 4V4 11 
Source 4 laimo* VS 2 4 5 3 
Source 4 iMfenos V5 8 & 5 7 
Source 4 Laengt V5 1 1 . $ 12 4 6 I 
Source 4 Lattngt V6 4. 4 6 5 



Please list youj I red) Redistributable Software selections bekra 

AC Disks ____ 

(numbers I Ibrougb IS) 



Complete Today, or telephone 
I -800-345-3360 now! 

You may FAX your order to 1-506-675-6002 

PWaso allow 4 to 6 weeks lor delivery ot 
subscriptions m US. 

(numlu-rs I tbrtmxb HbO) .„ ,,„ ,„,,,/ ,„„, uiur / u /w, on rrtpmtl 

Chock or money order payments musi be m US funds drawn on a US bank subieci to appbeabkj sales ia« 



AMU I S 

(numbers I thmugb 2b) 
I ml I ish Disks 
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Have Your Own 

Custom 3-D 
Graphics Package 



Part I of this article gave the derivation of a z-buffer algorithm foe 
rendering objects defined by points It gave program 1 , lor generating, 
placing and rendering floor*, shadow*, and boxes defined by prints 
Pan II gives Ihe derivation of a lighting algorithm (or objects defined 
by points, and lists programs for lighting, tearing the effect Of a light on 
an object, setting an object's color, extracting a palette from an image, 
and generating objects of revolution. Part II includes lighting code for 
the floor and the cube programs listed in Part 1. Part II also describes a 
l : me Arts coloring theory that simplifies 3-D graphics coloring. 

World Space: Lighting and Color 

The world space of these programs was described in Part I as 
real-numbered left-handed coordinate space. The world space b 
assumed lit by ambient light which may be chosen as low or a bright 
as you please. All Ihe object* have their shadow color to start, 
becoming lighter when lit 

The Angle ol Incidence 

When light strikes an object the amount of light the object 
receive! depend* on the angle of the striking light ny The more head 
on. or perpendicular, the strike, the more light the object gets The 
more glancing the strike, the less light the object gels Ihis striking 
angle is called the 'angle of incidence.' It can be measured by 



comparing Ihe angle the light ray make-, with the normal line', or 
perpendicular, to the object's surface. See Illustration II. I (a) 

Since the object has no surface — it is all [Hunts using the 
'normal' line stretches the mathematical meaning of "the normal to a 
surface at a point on the surface" but it actually works quite well hoc a 
sphere the line through the object'* center and a point on the surface is 
perpendicular to the surface at that point As an object'* form deviates 
Irom Spherical this will be less and less accurate. We can. nevertheless, 
within the limitations of these two considerations, base a lighting 
algorithm on the angle between the light ray and the 'normal' line. 

Illustration 11.1 (.1) shows a ray from the light, PL, to the object, 
PO. Further down in the object is it* Center. PC Hie normal line to the 
object, at the point IX). is the line from the center, IX", through PI ) 

The equation for the angle between two directed lines will give 
Ihe 'angle of incidence ' The directed lines to use in this equation .ire 
Linel, from PO to PL. and Une2, from IX) to IX. Note that these 
.lire, ted lines are not the same as the light ray and the normal line- See 
Illustration 111 (a). 

The equation is: 

cmitMtii • coaialpball'coalalpbal) • 

ce*lbat«:i>cQ*(b«t«ll • «Of<a«aMll a coa< 



Where, tor I me 1 



ILLUSTRATION II. 1 



ongli: or INC1DLNCE 
V"«" '*•' ' <v "I I 

...,,,,, i in., to m* . 



• UK I .ml >M 







<b> LIQHT 



hiiix i 



■•OfKO.YO.ZO' 



n i -i 



*<j 




CO.I.1&R.1I . Ul-*ol/dl 

coalbatall ■ ((l-roi/ai 
ccal a i — ilt * nl-io)/dl 

dl . K»TI Wl.l-MI • •QHlyl-yoi - 



Ilil-IOH. 



For Line2: 



and so on 



COt'lipUll . i«e-»o>/dJ 



Detailed derivations can be found in 
Trigonometry and Analytic Geometry texts 

The equation yields cos(lhcta) Then: 



that* 



■iccoa(tbatal . 



The 'angle of incidence.' hov.ev.-r. is phi 
not theta Phi equal* 180 degrees minus theta The 
amount of light falling on an object at a point is 
proportional to phi. The smaller phi the more 
directly the light hits the object The larger phi the 
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Part II— Adding the finishing 

touches to your personal 3-D 
soil ware 



1 



by Laura M. Morrison 



more glancing tlu- ray ol light hitting the object 

t alculating the amount of light falling on a point by 'angle of 
incidence' constructed using the 'center* point becomes less meaning' 

lul IS the shape Ol the Object ifeM.iti~.ltom the shape ol a sphere the 
artist, however .an compensate tor tms by selecting an appropr i ate 
.enter' points. The center of an object can be calculated exactly, or 
■-elected to an end of getting a particular artistk effect An object can 
also be divided, several 'centers' sel e cted, and each subset ol the 
object's points processed separately For example, to enhance their 
form, the blossoms in Illustration II 4 were processed separately, ami 
lighted each with respect to its own center fhe 'centers' for the boxes 
and the floors in Illustrations Uand iu were taken always on lines 
perpe nd icular to the side ol the box or perpendicular to the floor plane 
Listing I2A shows how to get the 'normal' (or floors I Ming I2B 
shows how to get the 'normal' for th.' sides of box. 

An algorithm for the reflection of one object onto another could 
be derived using the same algorithm bv substituting the influent Lng 
object for the tight RadJostty effects can be similarly calculated, 

I he angle of incidence' provides a basis (or decisions about the 
color of a lighted point. It does not, however, determine the point's 
COkn You. the artist, must decide how to use the information and your 
ii- will personalize your images 

The decisions implemented in the lighter' program are not the 
only possible. They divide the range of phi into 
sections, coloring the light, middle, and extreme 
ranges with palette colors, and intermediarv 
ranges with checkered mixtures ol the e xtr emes- 
I he information can be used differently for 
lighting different objects Walls and grounds need 
gradual lighting but blocky forms, like the 
blossoms in Illustration IN, are enhanced bv 
blacky lighting 

I he lighter code included with the lighter' 
program. Listing 10, has only m-\ en dh bfons ol 

phi It was used to light the blossoms The code 

for lighting floors and cubes, Listing 12-C has 57 

divisions It was used to light the ground and 
wall in Illustration 114 the lighter code for 



Right. Illustration 2 2. 
Opposite left: Illustration 2. 1 . 



testlighter has GO divisions. It was used to mark the divisions of phi on 
Sphere (e) in Illustration 11.2. 

The division of phi's range can be used to set the mood of an 
image. For example, relatively large light and dark subranges give a 
dramatic, chiaroscuro elfect (Rembrandt). Relatively larger middle 
tone ranges gm- a flat, decorative effect I Matisse] Illustration 11.2 (a)- 
(d) shows spheres lighted with differently grouped divisions. 

To make it easy to select .m,\ change groupings an array of 60 
divisions is included in the lighter' code. Listing 10 (starting at line 7). 
Zonefl is an amy Of 60 equal radian divisions of phi (Actually. 61 
elements with the unus*-d zero element I Illustration II 2 (e) represents 
a 'lighted' sphere with each of 60 ranges of phi colored differently 
(modula 1S| Illustration II 5(b) shows a post similarly marked. 

The numbers below (he spheres. i.i)-(d) in Illustration 11.2 give the 
ZOncf] numbers used to get the distributions of light shown lor 
example. Illustration II 2 (a) shows a sphere lighted with phi's range 
div ided into si. parts the highlight is the first range 

.. pfcl . 0.110* tMlui - it*.! J! 

Fhenexl range where the ceteris a little darker is 



1.110* (a pfcl . 



nw 



»|1J! 



1L1.USIBATIOH II .* 



t .> 







'.- ■>". ... 



(«> 



eve <7»b. ;••. js«> 
licmi cso.«sa,«aei 

1 I mii:h • .•»*..■*#..•*«> 
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ILLUK1XATIOH 11.3 

A a 


PAi.riir- rune 

c 
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MlXIUREl 

K 
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1" 






■ -i 






>■ 


























The program takes care of translating to radians 

The testiighter program, Listing II, will mark an object according 
lohow the light strikes it By test lighting an object to gel it- multiple 
colored representation (as sphere (.■)) you can select distributions ol 

phi that will best enhance the form of the object or the mood of the 
picture. The numbered lines pointing to colored rings on Sphere (e) 
show how, with a little practice, you will be able to read oft division 

number*, on your test lighted object. 

Fine Arts Coloring Theory 

The Old Masters taught their students to use a limited palette oi 
eight to twelve colorSi to get new colors bj mixing no more than two of 
these, about half and half, and, by adding to the pure colors, or the 
mixtures, traces of another color, to 'break' the colors They also taught 
their students to avoid using pure white and pure black Someol theii 
advise had to do with avoiding mudd) colors, which chnr.ii ten/es 
paint mixtures ol more than two colored paints, and does not appl) to 
computer colors, winch .ue pure light Much of thi-ir theory, however, 
contributed hi the beauty and coherence ol their paintings. 




: hi » Hd Master- taughi thai the palette's colon 
were best divided into tom-. Inert might be .is few 
as three tones, or as many .is seven. Three was 
considered to work well I used three lor Illustration 
11.4. The palette color- are arranged in sequences of 
three tones: light, medium, and dark. In paint the 
tones might have been one color with white added 
and black added. They could be three different but 
related color-, or even three separate colors. If colors 
.ue changed bul keep within the Same classifications 
of tone and color temperature the result usually 
remains meaningful Hvidently the eye will accept .1 
wide range of color*, as belonging if only the color is 
consistent in lone and temperature. 

Illustration II 3. gives I palette template with the 
colors selected for the image of the potted (lowers. 
Illustration II. 4. Three tones each of pink-red, 
orange-red, powder-blue, and neutral -purples, 
makeup the 15 registers Although black 1- 
avallable In color register zero it is not used 111 
Illustration 114 A checkered pattern makes the half-and-half mixtures. 
Since the blossom objects are composed of disassociated points ,t is 
difficult to color a blossom checkered. Using the sum of x and y to 
determine odd or even, works fairlv well. howe» ei 

With only 16 color registers available mixtures are expedient, bul 
more Importantly, they are a way of insuring color coherence Rven if 
more registers were available, IS in the new AtiAchip Amiga s. 
mixtures might still be desirable. One great advantage of the checkered 
pattern mixtures is that they all ad|ust automatically when you change 
a principal color 

A generally useful palette might include two sets of warm colors 
l yellows and reds), two WtS Of cool colors (greens and blues), and a set 
of neutrals (greys or purples). You can use Illustration II 3 ,1-. .1 palette- 
template when selecting Colors When you set colors for color register- 
one through fifteen the mixtures that re-ult are -how underneath 
Tin- information on line Art- theorie- and techniques can be 
found in Tlw Materials and Techniques of Painting by Jonathan Stephens, 
published IWf by W.u-on (.uptill Publications. New York Youare 
not limited to this theOT) You can make up your own or use none a( 
all. The computer, however, is ideal for applying 
theories, and rules applied consistently are. after all. 
the basis of that much valued and elusive factor of 
art, unity 

The Code 

Programs I through S were listed in Part I. The 
general aspects ,i( tin- code such as using scripts, 
numbering files, recording program actlvltv were 
described there hollowing is discussion ol 
program- •< through 1 5. listed here. Additional 
comments are in the listing- 



Top: Illustration 2.3. 
Left: Illustration 2.4. 
Opposite Page: Illustration 2.5. 
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i oliT.r. I istmg ''. changes the register numbers of points of ui 
object .u cording to your input color id It ignores the coloi value 

already stored with the points Coloring s hun-h oi disassociated 

points 'Checkered' is done by assigning one color to points with odd 
sums x * y and the other color to even sums x ♦ y. 

M.ip If) .ind nup2|l give the color register numbers (or 45 color 
ids | he -45 colors are the 16 solid* and their mixtures shown In 
Illustration 113. M.ipl(idl gives the register numbers tor points having 
n .'ii xobj • ynb|. Map2[id) gives them (or odd. Note that the hrsi I 5, 
being solids, have both numbers the same. 

Colorer reads an object point's record. rev ises its color id. and 
writes it to a new file. Colorer requires a parameter tile. Voparams ' 
See 1 able 2 I. The parameter tile should contain the color 'id.' not the 
register number of a color. 

To run colorer use a script. (Given in Table2.2) At the CI J 
prompt, type 

■■•out* color. ■crtpc <ofi)*ct mm> 

Lighter, listing It), reads a point and calculates a new color tor it 
based on the unounl o( light (ailing on it Lighter 
requires a parameter file 'liparams' which contains 
the light position and the center point o( the object. 

Foi example liparams' see Iable2 1 

The /ones used (or Illustration II 4 blossoms 

were 



•■ phi . lOMllOI 

lOMllB) M phi I If— DO I 

icmDOI <■ phi • loaallS] 

iouIIDI •■ phi « looaiiD] 

IM4IIS) «. phi < iom|«01 

IOM|«S) .. phi 



Lighter program calculations are all relative to 
the darkest, or ambient, color of an object That way 
the lighter program can be used on many different 
colored objects provided only that their input color 
ire the darkest color of a range of three. This is only 
one possible coloring algorithm. See Listing 12A 
and 12B (or algorithms with more divisions and a 
different treatment per divisions The proportions ol 
the mixtures were based on the remainder mod u la 
27. which was determined experimentally- 

Besides different numbers of divisions, and different sizes of 

di\ isions. you can vary* the treatment within the divisions One might 
even, tor example, intersperse- a percentage of tinting colors add say 
10 percent yellow to the lightest, 10 percent red to the middle. It) 
percent blue to the darker tones— or .my other imaginable treatment 
consistenl with "cyberspace" optics 

I ighler does not need theentircobjecttodetermtnelighting.it a 
point. Lighting depends Only upon the position Of the light, the center 
point of the object and thepoint being lit To enhance the form of its 
component chunks you cjn break up an object into chunks, each with 
its own center point, and light them separately. When lighting bo.es 
(the program lor generating box points. I istmg 5. was given in the Part 
I) using the true box .enter will result in a box that appe.irs somewhat 
like a sphere See box lighting code fragment. Listing 12 h*. Co get the 
Correct effect Withsharp edges where the planes ol the box turn, you 
need to take .> ~pevi.il center point lor each side For example, if the 
box side is parallel with the x-y plane then (or the 'center' use the true 



/ v enter point and the current x, y coordinates you are processing so 
thai the line from the 'center' through the point is always perpendicu- 
lar to the side. If the box side is parallel with the x-z plane then use the 
true v center point and the current x. z coordinates so the line through 
the center' and the point on the object is always perpendicular to the 
side 

Simil.ulv. the center tor the floor has to be taken as some negative 
y value beneath the floor and the current x and / values to insure a 
perpendicular normal See Illustration II. I (b). The center is straight 
down, below the ground, so the equations will give a normal line 
perpendicular to the ground. 

Fine Arts theory favored two lights only in a picture: a main light 
to one side and high up, and a weak (ill light from the other side and 
Iowa down. The programs do not restrict the number ol lights or their 
colors. You must, however, be able to tell the computer how to deal 
with each mixture of lights situation it will encounter. 

To run lighter on an object o( mam (iles use a script FnterCLI 
and at the prompt type: 

menta llqfiot.Kilpt .ob]«dftaaa> 



iLLimtKATlOH, II. S 



ob ,ii. i% or 

M Vol. II I ION 



I •> 




<e> 



I est lighter. Listing 12. "lights" an object using over 60 division of 
the angle of incidence, phi. and colors points that fall in different 
dh bkmS different colors (modula 15). The results can tell you how the 
light is distributed over your object, and help you determine whether 
and where to move the light, and how many, and which, ranges of phi 
will be most effective. Illustration II. 2 suggests how you can use 
lesllighter to choose ranges of angle ol incidence Make a test marked 
rendenng of the object, then select appropriate groups ol dn isions 

1 est lighter requires a parameter file, 'tlparams* containing light 
position and object center. 

Floor lighting code fragment. 1 isting 12-A . is lighting code for 
the patterned floor generating program given in Part 1 of this article. 
Add Listing 12-A and Listing 12-C to the 'zfloor' program (Listing 4.) 
of Part L (Executable is included on disk ) 

Cube lighting code fragment. Listing 12-B. lighting code lor the 
cube generating program given in Part I of this article Add Listing 12- 
B and Listing 12-C to the 'cuber' program (Listing 5.) o( Part I. 
(Executable is included on disk ) 
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Lighting code fragment. Listing 12-C. is one possible division of 
phi's range, and treatment within each range, based on a complex, 
experimentally determined formula of remainder- modula 27. 

I .ithiT. Listing 13, reads an outline image and generates an object 
of revolution. See Illustration U.S. The outline of the object should be 
upside down and in the upper left comer 

Justpal. listing 14, reads and image and copies its palette H | 
small file called 'pal' Several programs check to see if 'pal' is 
available in the directory. If it is, the program reads and loads the 
palette, fustpal provides an easy way to change the palette of an image 

Center -c. Listing 15, reads a file of object points and calculates 
mm and max of x, y. and z values, and the center point. Use 
'center. script' to run center on all the files of an object. Edit the 
resulting runjiotes to produce a hie with the centers of the object's 
sub-files Run center again on this one file to get the center of the 
object. To find the center of a large group of objects make up a hie with 
the center point of each object in the point file format of *cc, xobj, yobj, 
zobj. You can use 'ed' to edit the ASCII point hies The center of an 
object is important for lighting in Part II 

Putting It Together 

The programs give a choice of ways to create 3-D pictures. 

1. You can create files of points for each object, then process these files 
thought coloring, placement, lighting, rendering to produce a 'rend* 
file (a rendered image) and '/buf files. 

2. You can string together code for all the processes and carry each 
point from generation through to rendering to produce a 'rend' file 
and '/buf files all in one pass 

3. You can combine 'zbuf files using compzbufs to get the final 
rendered image. 



All the '/but' hies tor the above were Ihen submitted to 
'compzbufs' which produced a rendered image of each potted (lower 
and its shadow. 1 could make each flower and the empty pots 
separately since they do not intermingle 

The ground was produced using the '/floor' program from Parts I 
and II. The wall was produced using the lighting code of Listing 12-C 
in the 'lighter' program. Listing 10. I used the backer program. Listing 
7, from Part I to put the wall behind the ground. Then, in DPainf, I 
pkked up the flower elements and the empty pots as brushes and 
pasted them onto the ground and wall image Positioning the brushes 
correctly was Incky. It could better have been done with the backer 
program. In DPaint I removed three or lour stray plant points from the 
wall and filled in a blank line artifact that appeared midway up the 
flowers. 

As you work on a 'paintings' you will think of etlects you would 
like to implement. Customize one of the included programs to get the 
effect or use the two-point form to develop your own special algo- 
rithm. Your accumulated customized special tools will give your work 
personal style. 



Biographical sketch 

Laura M Morrison has ,i master's degree in mathematics from 
New York University, W she has worked as an Operations Research 
Analyst designing applications software tor I HO U&E, Union Carbide, 
and Eastern Airlines. 

Ms. Morrison studied painting at the Art Student s I eague in 
New York and the Academy lulian in Paris. 







4. You can paste 'rend' files in front of and behind one another to 
produce the final rendered image 

5. All of the above. 

Illustration 11.4 shows the possibilities. The blossoms and loaves 
are four variations of one IFS vegetation object. Table II 3 gives the 
'specs' file for the center plant. You will need the decoder program 
from my article "Make Your Own 3-D Vegetation Objects," AC'S 
TECH Volume 3, Number 1 , to decode the 'specs' file. I changed my 
decoder program to output a separate file for each blossom This is 
easy since each blossom is a separate tile and it comes with its own 
separate color. Sending points of different colors to different output 
files separates the flower's blossoms. 

Each blossom point was then read, positioned, expanded to seven 
points to give it more body, colored, lighted, its shadow generated, 
and blossom and shadow rendered, all in one pass. The code that does 
this is not included but alt of the necessary functions code is. 

Using 'addpomts' I added a few points to the leaf files. The leaf 
points for a flower were lit as a single object. They were not expanded 

The flower pots were generated separately from formulas for 
points on a line and rotations, code that later evolved into the 'lather' 
program. Listing 13. The 'lather' program will produce pots from the 
object of revolution outline given in Illustration Il.5.(d) 




torrisOT. Part2 .HYOCGP.Ust ing_9 
/"colorer.c Listing 9 
Assigns color id to an object . Assigns 
color register to each poir' » - - 

Copyright 1993 by Laura :* i ■ 

• include "stdio.h" 

■ include "libraries/ : 

• include "exec/exe . 

• Include "math-h" 

/* mapl ( 1] assigns sixteen color r<?giK" 
color ids for points having xob] «yobi 
through IS are solids. Colors 16 t 

static int mapl II ■ ( 0, 1, 2, 3, 4, b, 6, . 
8. 9. 10. U, 12. 



1. 2. 3. 1. 2. 3, 1, 2. 3 


1 


2 


1, 


4, 5. 6. 4. 5. 6. 


1 




6. 


7. S. 9. 7. B, 9. 


10. 


. 




/* nvip2 |i ] assigns colo: : • 








having xobj • y 






• 


static tnt map2 I J = I 0, 1. . 






. 


8. 9. 1C, 








4. 5. 6, 7, 6. 9. 10. 11. 12. 


■ 




IS. 


7. B. 9. 10, 




14. 




10, 11. 12. 13. 14, 


■ 
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' ii . ' -oH201; 
■ 01; 
static int cin. xin. yin, 

. cout. xout. yout . zouC: 

IV ) 

■ ■■■ ■ 
l 

. pt count ; 
.'199; 
• ! ; en() , "dp. "sp. 'lp. 'pp; 
i ■ 






'. object. - 



I 



it ( ( pp ■ (open("clpatan . ". "i ■ i =NULL> 
I 

■ : (" Need a 'c.; with \n"l ; 

...-w color 'id' for object. 
■ 
) 

pp, ■ %d ".Sid) ; 
<? ( pp I ; 
printf ("\n\n\i n >n->; 

prir. •): 

'■SSIGNS COLOR REGISTERS to OBJECT'S') ; 
: cpoiNTS\n\n •) ; 

■ OBRESPONDINCTOOBJECT'SCOLOR ID\n"); 
prlnt EC •) : 

:jht 1993 by La ■ ■ H : nson\n\n\n-> ; 
print : - •) : 

print ({"Now processing file %s\n",argvll ) ) : 
n"(; 
. "r"l ; 
: 



rroub 

exit(2); 



g input po. 



at rcpy lout file, "ram:' l .- 
B treat .• * e.arovUDi 
strcat [oui 

■ r,pen(out • 
ptcount ■ 0: 
readmore:; 

fscanf f.ip, ■ %d »d *d Id ■ ,&cin.i.xin.&yin,&/ 
:ln > 997 ) 
I 

goto 1 Irtish; 

nix n] I 2; 

if f rr. i x = = 1 

I 

cout = mapl 
> 

else 
i 
cout = map2Jid] ; 

f printf (dp. " »d Id Id Id \n".couT . . zinl ; 

ptcour:'. • • 
goto readmore: 
■ 

if (dp) 
I 

■■!'.' *d %d td »d \n".dm.dm.dm.dm): 
jse(dp) ; 

■ 

*a" ) : 



lp, * tfi »s *s\n". 

■■ id); 

) 

■ end of piaJ 




Morrison. Part2.HYOCGP.Listing_10 " 

/■ Listing 10 lighter. c 
Copyright 1993 by Laura M. Morrison 
Reads objo - ; - • md colors them 
accoi 

. . - • lio.h" 

, : :es/dos.h" 

. r./dosextens.h* 
cludWmr.excc.h- 



■ 








0.02618, 


- 




■ 


0.13O90, : 








• 






1416, 








J. 41688. 


.44 . ; 124, 


0.497 




0.52360. 



'■96, 0.60214. 0.62832. 

0.65450. 0.68068. 0.70686. 0.73304. 

0.75922. 0.78540, 0.81158. 0.83776, 

0.86394. 0.89012, 0.91630, 0.94248, 

0.96B66. 0.99484. 1.02102. 1.04720, 

1.15192, 

16, 1.25664. 

18. 1.36136. 

.1 13990. 1.46608, 

-.'■. 1144, 4462, I. .7080 



. zlit; 
■ cobj . xob] . yob j . zobj; 
int xcen. ycen, zcen; 

xof f . yo: 
float cosalphl.cosalph2; 
static float cosbetal, cosbeta2. cosgaml . cosgam2. 
ithftta, phi. theta; 

sta i. diat2: 

- x. .iqry. sqrz; 
■ ■• 

,delz2; 
ii . 

* i * ■ 

KScr, yscr. zscr, row. col. i. j. k; 
. rem, ccc. cc; 
int xoff, yoff. zoff. colond; 
. count; 
lun: 

•dp. *sp, *lp. "pp. *op; 



< 2 ) 
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print £ ( "Need f llename ol object "s points. \n") ; 
exit (2) ; 
I 
if llpps fopenl'liparams", "r") ) ==NULL) 

print f (" Need a * llparams' tile with light"! : 

I | • position. \n* ) ; 
printf I" and center of object : xcen, ycen. zcei ■ 
print! (■ object color, and offsets \n") : 
exit 13) ; 
) 
fscanf (pp.* %d Id Id " , &xlit. &ylit. izlit); 
f scant (pp. " %d Id Id Id'.ixcen.fcycen.izccn.&colorid) i 
fscanf (pp.- %d Id %d ",&xoff ,4yof f ,i,zoi I 
fclose(pp) ; 
print f C\n\n\n\n") : 

print I • ')) 

printf ("LIGHT AN OBJECT \n\n") ; 
pnntff •); 

jhc 1993 by Laura M. Korrison\n\n\n" ) .• 
printf (" ... processing file Is \n\n" .argvjll ) ; 
sp = fopenlargvUl . *• • 
at rcpy lout file, argv 
strcat (out file. "test") ; 
op = fopen (out file, "a"i ; 
xcen s xcen • xoff; 
ycen * ycen • yoff; 
zcen s zcen * zoff; 
readmore:; 

fscanf (sp." Id Id %d*d\n". 

&cobj.fcxobj.&yob].&zobj) ; 
if (cobj > 9911 
I 

fclose(sp) : 
goto : 



■ xol f : 
yobj = yobj * yof f : 
zobj = zobj • zoff; 
delxl = (float) txcen-xobj); 
delyl ■ (f loat ) lycen-yobj) ; 
delzl = (float) (zcen- zobj) ; 
r.qrx - delxl'delxl; 
lelyl' - 

-I'delzl: 
distl a sqrt ( sqrx + sqry • sqrz ); 
ifldistl := 01 
( 
cosalphl = delxl/dist 1 ; 
cosbetal » delyl/distlr 
cosgaml ■ delKl/dlsi 
delx2 = (f loat) (xlit-xobj) ; 
dely2 ; (f loatl (yl it -yobj) ; 
delz2 = (float) (zlit-zobj) ; 
r.q:x - delx2*delx2; 
sqry ■ dely2"doly2; 
sqrz = delz2'delz2; 
dist2 s aqrt ( sqrx • sqry • sqrz ) ; 
if (dist2 : 
{ 
cosalph2 = delx2/dist2; 
cosbeta2 * dely2/dist2; 
cosgam2 « delz2/dist2; 
costheta= cosalphl *cosalph2 • cosbetal'cosbeta2 

• cosgaml*cosgacn2; 
t'r.ota = acos(costheta) ; 



phi 

■ - • 

-. : ■ . . 
■ • . : 
if ((phi >= 0.0) it (phi - zone|20]il 
I 

CCC ' CO; 
) 

> 44. (phi < Z* :,' \ • 

I 

CCC - coL 
else 

ccc : cobj-2: 
) 
else if ( (phi >= zonel30i liMphi < zone (40 1>> 
I 

ccc * col 

else 1(1 1 :-. : . 

I 

. ■ 
ccc ■ cobj-1: 
else 

ccc - cobj; 
l 
else if ( (phi >^ zone [SO] )ii(phi < zon- ■ 
I 

ccc = cobj : 
1 

CCC : C( I 

li iop." id Id \c ■ 
goto readmor 

hi ; 
fp: - • '• : ■ urn) : 

. 

.:i_Notes", "a" ) ; 

■ 

fprlntf (lp. '\ti\n %s Is \n ".argvIO) ,argv{ 1 ] ) ; 
f printf dp. " Light position (Id. Id. Id) \n" . 

; it): 
object center I Id, Id, Id) \n". 

xcen . ycen , zcen I ; 
fprlntf I lp, " Object color Id \n". col or id) ; 
fclosedp); 
) 
* end 




Morrison. Part2 . HYCCGP . List ing_ll 

• ' i ' • ■ . ill 

■ 



• include 1 ibrarier. 

;de "libraries i- ■ ■ 

• include "oxec/-. • 

• include "math.h" 

neKAXPOINTS 400QL 
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static float zone |! * ( 0.0. 

0.02618, 0.05236, 0.07854. 0.10472. 

0.13090. 0.15708, 0.18326, 0.20944. 

0.23562. 0.26180, 0.28798, 0. 

0.34034, 0.36652, 0.39270, 0.41888. 

0.44506. 0.47124, 0.49742, 0.52360. 

0.54978, 0.57596. 0.60214, 0.62832, 

0.65450, 0.68068, 0.70686, 0.73304, 

0.7592/. . - 1 . .8! », 

0.86394. - • .. . 

0.96866. ■ ; ■ ; , 

1.07338. . . ■- - . ... 

1.17810. 1.20428. 1 .23046. 

1.28282. 1.30900. 1.33518. 

1.38754. 1.41372. 190, 1.46608. 

1844, 1.54462. 1.57080 )i 
.• : 
char ml 
char strll20] ; 
static Int xlit . ...... .lit; 

static int cob j, xobj. yob], zobj; 

static int xcen. ycen. zcen; 

static int xoff. yt I 

static float cosalphl,cosalph2; 

static float coabetal, cosbeta2, cosgaml. cosgam2; 

float costhcta. phi, theta; 
static float distl. dist2j 
static float sqrx, sqry. sqrz; 
static float delxl.d. 
static float delx2.dely2,delz2; 
mainiargc. argv) 
jc; 
■ ' rgv [ ] i 



*. 



■ otl; 



■ 



int dm, dum. i. j . k; 
FILE «fopen( I . -sp. -lp, -pp. «op; 
dum : 999; 

999 1 
if I argc < 2 1 
< 
printf r 'Need ( ilenawe ol . ' ' a poi 

exit (2) ; 
t 
if l ( pp = foponl't lparar 



■ - Need a 'tl| - 

printf (• andci-.- . • : xcen. ycen, zcen\n" I ; 

printf (• and offsets Wi*)j 
exit l 31; 

) 
f scant (pp. # %d %d *d -.4x1 it. 4ylit. 4zlit) ; 
f scant (pp. " %d %d %d '.4xcen.4ycen,4zcenl ; 
fscanf (pp.- %d *d %d -,4xof f ,4yof f . 4zof f ) ; 
fclose(ppi : 

n\n"l : 
print I TEST LIGHT «J OBJECT \n\n- > ; 

printf I" * - 

print; Tw "•■:■-. 

. irgvfl ] t ; 
; ' 1 . "r" 1 ; 



' ' 



ie, air 



xcen i xcen » xof f ; 
ycen * ycen . yoff; 
zcen = zcen • zoff; 
readmore: ; 

p.- -d %d »d *d\n", 
■ .:objl: 
if (cob) > 997 ( 



fcloselsp) .- 
goto finish; 



1 • • ; 

xob; - ■ 
yob- - yoff; 
zoff; 
■ I (xcen-xobj 1 ; 
delyl j (floatMycen-yob;}; 
:loat) izcen-zobjl; 
6qrX 1 delxl'delxl j 
sqry > delyl'delyl; 
sqrz s delzl'di 

dist! ■ sqrtl sqrx - sqry - sqrz i: 
if<distl != 0) 
I 

cosalphl « delxl/distl; 
cosbetal ■ delyl/distl; 
cosgaml = delzl/discl; 

CObjl ; 
rloat) (yl it -yob) l ; 
l : loat objl ; 

delx2'delx2; 
sqry > dely2*dely2; 
delz2'delz2: 
1ist2 = sqrtl sqrx - sqry . sqrz \: 
if (di«t2 I- 0) 
I 
cosalph2 = delx2/dist2; 
cosbeta2 = dely2/dist2; 
cosgam2 ■ delz2/dist2; 
cosehota = cosalphl *cosalph2 • 

cosbetal*cosbeta2 • cosgaml 'cosgam2j 
theta = acos(costheta) ; 
phi = 3.14159 - theta; 
• U . rfat .•■■ro •/ 
, ■ ■ 
1 f ( lp' ■ ',1. iphi ■; zone (0 1 i ) 

ccc 

. zonelO] Uttphi < zonell])) 
ccc 

zoned] liMphl < zone|21 |) 
I 
. f ( (phi >■ zone (21 (44 (phi < zone[3| 1 ) 
4; 
f ( (phi >= zone] 3] ( 44 (phi < zone[4il ) 

CCC ■ b; 

else -4.4 (phi < zona 

ccc 
else if ( (phi >«zonel5) ) 44 I phi < zone (61 ) 1 

ccc 

.-.'.'[61) 44 (phi < zonc(7|n 

ccc ■ 8; 
else 1: t (phi >-- zone!': 144 (phi < zone(B| I) 

ccc 
else if (Iphi >= zone(81 ) 44 (phi < zonel9| ) I 



zone[9) )44[phi * zonellOJ \ 



ccc 



11: 
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else i i ( (phi >= zone 1 101 144 (phi < zone(U I ) I 

ccc = 12; 
else if ((phi .= zone 1 11 !>&& (phi < zon< 

ccc 
else i( ( (phi > = zone|12] ) 44 (phi - zon< 

ccc 
else if ( (phi >-- zone 1 1 3] 144 <] 

ccc = 15; 
else if ( tphi >= zone I !-l] ) 44 (phi - • 

ccc - . . 
else it) (phi >= zone[15|)44 (phi < zone 1 16 1 11 

ccc 
else it ((phi >= zoneI16] ) 44 (phi < zone! 17) i i 

ccc * 3; 
else if ((phi • : --MB])) 

ccc - : r 
else if ( (phi >= zonellB) )44(phi < zone 

ccc 
else if ( (phi >■ zone 1 191 ) 44 (phi < zone [20 I > \ 

ccc 
el3c if ( (phi >■ zone 1201 1 44 (phi < ? .■ 

ccc 
else if I (phi >■ zone 121 1 ) 44 (phi < zone . . 

ccc » 8; 
else if ( <p? 

ccc = 9; 
else if ( (phi >= zone [2 J] ) 44 (phi < zone I 24 I > ) 

ccc ■ 10; 
else if ( (ph; >•- zone [24] 144 (phi < zone 1 251 )) 

CCC = 11; 
else if < (phi >• zone (25) ) 44 (phi < zone (26 1 >> 
ccc 

zone[261)44lphi < zone[27] ) > 
CCC 
else if ( (phi >~ zone [ 27 1 ) 44 (phi < zone [28 1 ) I 

ccc 
else if ((phi >■ zone[28 ! )44 (phi < zone[29] ) > 

ccc * 15; 
elso if I tphi >= zone 1 29 1)44 (phi < zone (301 ) I 

ccc = 1; 
else if ( (phi >= zone[30| )44( phi < zone|31| > ) 

ccc 
else if ( (phi >= zone [31] )44( phi < zone [32 I ) ) 

ccc 
else if t I phi ■ fone(33) ) I 

ccc ■ 4; 
else if ( (phi >= zone(33J >44( phi • i 

ccc = 5; 
else if ((phi >> zone [34] )44( phi < zone 135) ) t 

ccc = 6; 
else if ( (phi >■ zone | 35] >44( phi < zone! 36] ) I 

ccc 
else if ((phi >= zone 1 16] (44 ( phi < zone[37]M 

ccc * 8; 
else if ( (phi >= zone 1 37) )44l phi < zone 1 38 II ) 

ccc = 9; 
else if < (phi >^ zone[38| >44l phi < zonc|39( ( ) 

ccc = 10; 
else if ( (phi >= zone 1 39 1 144 (phi < zone (40 til 

ccc 
else if ((phi >=zone[40M44 (phi < zone 

CCC = 1 2 ; 
else if I (phi >=zone(41) )44lphi < zone 
ccc = 13; 

.-onel43] I > 
CCC = 14; 
else if ( (phi >= zone! 43] > 44 (phi < zone [441 1 t 






zone[44l )44(phi < zone; : 



zone(45) )44(phi < zone|46] I ) 

zon€ ;■ ione|47 1 1 1 

zoneUBI I > 

elst* . ;h| nt (phi < zone(49| t ) 

ccc 

:<i] |44fphi < zone(50] ) \ 






.•one[51 ] ) ( 



. ! )44( ph: < zone(52) ) i 
ccc 
else ■= zone(52l I44( phi < zone|53] ) ) 

ccc 

<-one|53] : zone I 54 11 > 



■ . 81 



it (phi < zone[55| ) t 



zone[55] )44(phi < zone(56) t ) 
ccc 

-.4 (phi < zone(57| > ) 



D 1 b< 



zoneI57J 144 (phi < zone(58| ) \ 



else if ((phi >= zone[S81144<phi < zone[59)| l 
ccc 

zone[59] 144 (phi < zone[60l M 
ccc 

else 
ccc 

fpnntf (op, • Id Id Id id \n*,ccc> 
goto reedmore; 

ih:; 
fpnntf (op. "Id Id Id Id \n",dum.dum.duHi.dum) ; 
teloaelop) ; 

: :Hun_Noti 
If Up 
( 

p,"\n\n Is ta .argv| 1 ) ) ; 

fprintfdp." Light posit ion ■ :.". 

■ 
fprmtfllp," Object center (Id. Id. Id) \n" . 

xcen.ycen.zcen) ; 
(closet Ipl ; 
1 
• end of main •/ 




isting 12A 




1_12A 
/* zfoot fragment Listlngl2A 
Copy: ■ by Laura M. Morrison •/ 

• . • .. * , . 

■ ■ - . ■ .: * 

-Tograpi » 
, 'he norma 1 

■;*.• object . To get a normal 1 

*_o the floor at each point of 
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■ 

* loor 

. .*cen) 

■ 

-400; 

■ 

■ 
■ 

■ ■ 

* 

... | 

■ 

COSo 

■ 

dely2 . (float 
Float 
• 
sqry 

■ 

/ - sqrz I : 






■ 



aunt % 5: 

■ 
• El 

■ 

■ 

■ ■ 
■ 



•cosbeta2 
•cosgam2; 



■ 

■ 

• i ■ 
-5; 




H*>rrlson.Part2.HYCO . 
'■ cuber code f ragmo-* 
Copyright 1993 by !., 

■ 
<objfi 

ng usea a 
t o ca : 

■ 

will 



give a line perpendicular to the side 
of the cube at the point being 
calculated. '/ 

' ■ I i » ■ 1 I I I ( 1 = - I) ) 



I 



ncenx * xob j f ; 
nceny * yobjf; 
ncenz = zcenf; 



else if I ( i : ;=«> ) 

( 

ncenx = xcenf ; 
nceny > yobjf; 
ncenz = zobjf; 

) 
else 

< 
ncenx « xobj I ; 
nceny = ycenf: 
ncenz « zobjf; 
) 
delxl . i(loat) (ncenx-xobj) : 
delyl = (float) Inceny-yobjJ: 
delzl = (float Mncenz-zobj) ; 
sqrx • delxl'delxl; 
sqry = delyl'delyl; 
sqrz = delzl'delzl; 
diatl * sqrt < sqrx • sqry • sqrz I; 
iftdistl l« 0) 
I 
cosalphl : delxl/distl .- 
cosbetal = delyl/d 
cosgaml e delzl/d: 
delx2 * (float) (xlit-xobj) ; 
dely2 = (float ) (yllt-yobj); 
delz2 . (float) (zlit-zobj); 
sqrx ■ delx2-delx2; 
sqry = dely2"dely2; 
sqrz ■ delz2*delz2; 
dist2 = sqrt ( sqrx • sqry • sqrz ); 
if(dlst2 !- 0) 
I 
cosalph2 « delx2/dist2; 
cosbeta2 ■ dely2/dist2; 
cosgam2 > delz2/dist2; 
costheta = cosalphl "cosalph2 - 
cosbetal *cosbeta2 • cosgaml *cosgam2; 

thei i acos(costheta) ; 
'.14159 - theta; 
} /* dist2 was zero "/ 
• distl was zero •/ 
r = count * 5; 
mixO = 100'lyobj • xob j ) ; 
100- (yobj ■ xob)> • 
100* (yobj * xobj i • 
100* (yobj . zobj) • 
mix4 » 100'iyobj • xob: i • I; 
- 00" (yobj * xobj) • 
.-.1 of code fragment ■ 
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Listing 12C 



"THIS LISTING IS NOT COMPLETE AS SHOWN 1 

Morr ison . Part2 . HTOCCP. List ingl2C 
Bt ing_12C 
Insert In zfloor and cuber progra:- 
: o£ this article. ' 
■ ■ 

I 2"'; 
. I : 

. \ 27; 
else tl 

mix 2 * 27; 
■ 

. X3 I 27; 
else 

; I 27; 



■- tl.O)ifc<phi 



i : 



i 






else 

ccc = cobj-2; 

else if ((phi >» zonc[0| (iMphi < zom 

( 

1 1 
ccc 

ccc = cobj -2; 

) 
else LI zone(l) )&fc(phi < zone|2))l 

ccc = cobj-2; 
J 
else LfUphl >■ zono|21 )ii(phi < zona 
i 

■ 

I ! 

ccc = cobj-2; 



> 

.-■ : 

I 

if [rem < 2 i 

ccc = cobj-1; 

• - ■ 

ccc « cobj-2; 
) 

zone!41)i4(phi 
I 

if (rem < 3) 

ccc ■ cobj-1; 
else 

CCC a cot; 

zonelSI I 
( 



ccc = cobj-2; 



< zone 1 4 ] M 



■ = zoneI6Uii(phi < zon-- 
( 

: ; 
else 
CCC 

:.el7) UMphi ■ 



■ 
CCC 
else 

c 






/.t. iphi « zone!9) I i 

■ - ■ ■ 

;obj- 1 ; 
else 

CCC = COb 

I 

nellOl ) 



■ - 

i 
■ 

I 



else 0] Hi. (phi < zone; I 





i f ( rem 


< 9) 






CCC = 


cob 3 


1 ! 












■ 




2; 










■ 


< 10) 








cobj 


1; 




else 








CCC = 


cobj 








else LZ] liitphi ' zonei . 

Hi 
ccc 
else 
ccc 



; ufciphi c zi 



else 
I 

i f I rem - 

ccc ■ cobj-1; 
■ 

>bj-2; 
) 
else it phi > zone|14] JSKphi < zone 
I 

I 

ccc = cobj -2; 






■.n*|15II*fclph. 61)1 



efn < 14) 

■ l 
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ccc 



■ ■ ■ . . ton* 

i 
■ 
ccc ^ cobj-l; 

bj-2; 
\ ■ i 17 I Ui (phi < zone(lB) » i 

■ 
ccc 

CCC 

LBD&& (phi < zonol I 
I 

ccc 

ccc : cobj-2; 

a 12011) 

I 

IB) 
ccc 

CCC : CObj-2; 
phi >= zoi ... 

; 

19) 
CCC 

else 

ccc » cobj-2; 
) 

:oneI22))l 



i ( l rer 
ccc 

■ 

ccc 



. 



ccc 



■ 
I 

ccc 

ccc - cobj-2; 
I 

< 

ccc 

■ 

CCC = CO! 



TABLE.2. 1 Parameter files 

Parameter fik for coloren 'clparams' 
6 
FORMAT: 

color id(%d) for object 

Parameter file for lighter iiparams' 
100 N00 900 
50 6 
320 250 iom 
FORMAT: 

hi positon: i\lu.>hi./lin 
Center of object (xcen,ycen,zcen) 

Color id 

Offsets: Koff, yoff. zoff 

Parameter file for lestlighter 'tlparams' 
100 800 900 

50 

320 250 1000 
FORMAT: 

Light position; (xlit.ylii./lin 

xi ol object: (xcen.ycerucen) 

Offsets: noff, yoff. zofl 

Parameter file for latber: 'laparams' 
72 104 

1 3 
FORMAT: 

Width and heighi of input outline. 
Incremenl amount. 
Color id 



■ 
■ 

CCC • col 

■ 261)ifc(phi < zone 

■ ■ 

■ 

ne|28) > ) 

■ 

I 

: 
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Tabic 2.2 


Script Files 




Script forcolorer: 


copy 




.key f 1 lenamc/a 


: ■ 




copy coloror to ram: 


■ 




copy clparams to ram: 


. . • . : - •■. 




cd ram: 






IFEXIi": tme>0 


IP EXISTS 




colorer *.f ilenanwj>0 


llghtei 




ENDIF 


ENDIF 




■ ame>l 


■ 




roi '.enam*>l 






END! 






I F EX I STS < 1 1 1 ename>2 


. . . 




colore: ine>2 






ENDIF 


IF EXISTS *'»9 






•naine>9 




IF •.:■: • is»>9 






colore: ma»% 


■ 




ENDIF 


Script file for 




Script f( 


tost! . 

-koy <f ilenaroo/a 




EXISTS <f ilename>0 


copy testlighter tc i 




cent • 


copy tlparams to r ^ 




ENi 


cd ram; 




IF EXISTS <iilename>l 


IF EXIST/ 




center <filename> 


::.' ■■: . : . 




ENDIF 


ENDIF 




IF EXISTS <£ilename>2 


IF EX 




center <filenaroe>2 


■ ■ ■ . ■ ■ . • 




H - ; 


ENDIF 






IF EXISTS ■■>? 

; ■ . . ■ 




IF EXISTS <f ilenaxne>9 


ENDIF 




cent- name>9 


. . ■ 




ENDIF 


IF EXISTS <fi-er^r- 




Script f ; inter: 


■ ■ 




.key <filename>/a 


ENDIF 




copy lig) 


■ : 





zone [28n*i (phi < zone[291IJ 
I 

■ 
ccc 
■ 
ccc » cobj -2: 
I 
else 



ccc = cob] - 1 ; 



else I ' 
( 

ccc i cobj-1; 

else if i iphi >= zone! 31] U&lphi - zone 



ccc = cobj; 



I 

■ 

■ 

■ 

■ 

■ 
cobj ; 

■ 

I S 1 ( ht i ph . 






cobj ; 
;obj-l 



■ 



■ 
■ i ■ 

ibj-lj 

■ 

- cobj : 

■ 

cobj; 

ccc 
I 

■ 

cobj ; 

I 

■ 
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if < rem < Uj 
ccc = cob] ; 

else 

ccc ■ cobj-1: 



else if ((phi >« zone(42]>«fc(phi < zone [43 1 H 
( 

■ ■■- - :: 



else 

ccc = cobj-1; 



else if ( (phi >-- zone (43) )&& (phi < zone [ 44) I ) 
I 

* -an < 13) 
ccc * cobj ; 
else 

ccc » cobj-1 ; 

} 

else iff (phi >= zonc(441 )4&<phi < zone|45J ) I 
( 

-?m < U| 
ccc = cobj; 
else 

ccc ' cobj-1; 
1 
else -. zone|45))fc*lphi < zoneI46]|> 

FN * 15) 
ccc = cobj J 
else 

CCC s CObj-1; 

) 

else if 1 (phi >* zone 1 46] J Si (phi < zone! 47] ) ) 
( 

rem < 16) 
CCC * cobj ; 
else 

CCC ' cobj - 1 ; 

) 

• lse if i (phi >= zoneU7i)fcMphi < zone (48 1 M 
I 

rem < 17) 
ccc » cobj i 
else 

ccc * cobj-1; 



4Bi us. (phi < zon«149| ) > 



) 



if (rem < 18) 
ccc = cobj; 

else 

ccc « cobj-1; 



else if ((phi >. zone[49| liilphl < zone[50)H 
( 

■ 
CCC a cob] : 
else 

ccc » cobj-1; 
) 
else if ((phi >= zone ISOJ ><.& ( phi < zone|51|)> 
( 

1 1 IIS LISTING IS NOT COMPLETE AS SHOWN' 



TABLE 2.3 SPECIFICATIONS FOR 
FLOWER 

{See- Volume 3 Issue I for 3-DJFS_dccodcr Program ) 

1.2 100 1.2 1.2 100 

0.0 -160.0 0.0 0.4 0.4 0.4 0.0 0.0 0.0 

160.0 350.0 160.0 

0.0 -100.0 0.0 0.4 0.4 0.4 0.0 0.0 0.9 

160.0 .150.0 160.0 

0.0 -100.0 0.0 0.4 0.4 0.4 0.0 0.0 -0.9 

160.0 350.0 160.0 

0.0 100.0 0.0 0.4 0.4 0.4 0.90.0 0.0 

160.0 350.0 160.0 

0.0 -100.0 0.0 0.4 0.4 0.4 -0.9 0.0 0.0 

160.0 350.0 160.0 

0.0 -130.0 0.0 0.4 0.4 0.4 0.7 0.0 0.7 

160.0 350.0 160.0 

0.0 -130.0 0.0 0.4 0.4 0.4 -0.7 0.0 0.7 

160.0 350.0 160.0 

0.0 -130.0 0.0 0.4 0.4 0.4 0.7 0.0 -0.7 

160.0 350.0 160.0 

0.0 -130.0 0.0 0.4 0.4 0.4 -0.7 0.0 -0.7 

160.0 350.0 160.0 

0.0 0.0 0.0 0.0 0.4 0.0 0.0 0.0 0.0 

160.0 350.0 160.0 

W9.9 999.9 999.9 999.9 999.9 999.9 999.9 999.9 999.9 

999.9 999.9 999.9 999.9 999,9 999.9 999.9 999.9 



The remainder of the source 

code and listings for this article 

can be found on the 

AC's TECH disk. 



Please write to: 

iMura Morrison 

c/o AC'S TECH 

P.O.Box 2140 

Fall River, MA 02722 
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v FAST AND POWERFUL PRODUCTS FOR AREXX 

\ Compile your ARexx programs with the REXX PLUS COMPILER and they will execute 
I I U P *° I8 times faster. The Intuition Interface allows even the most novice user to 
/ / execute their programs at warp speed. Explicit error messages make debugging a breeze. 
/ The REXX PLUS COMPILER generates a listing that is easier to read than the original 
S source. The listing contains nesting levels, flagged comments, a symbol table and a 
complete cross reference. Version 1.3 is a major upgrade that generates 40 to 60% 

B smaller programs. All REXX RAINBOW LIBRARY SERIES functions can be included as 
part of the language. 

Don't just take our word for it, here is 
what some of the experts have to say 
about the REXX PLUS COMPILER.. 

"...A SIGNIFICANT NEW PRODUCT 

WHICH ALL AREXX PROGRAMMERS 

SHOULD HAVE." 

Amazing Computing, June 1992 

...THE AUTHORS HAVE IT RIGHT... 

IT COULD WELL BE A FUTURE 

AMIGA CLASSIC." 

Amiga Computing UK, November 1992 

...IS A WELL-DESIGNED UTILITY THAT 

DOES ITS UTMOST TO SUPPORT THE 

COMPLETE AREXX ENVIRONMENT IN 

A TRANSPARENT FASHION." 

Amiga World, September 1992 






Ml 
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.DOES THE JOB AND DOES IT WELL, 

EVEN ELEGANTLY." 
Jump Disk, June 1992 



■■■ 
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DEMO DISK AVAILABLE • 
Dineen Edwards Group 



19785 W. -12 Mile Rd., Suite 305 
Soulhfield, Ml 48076-2553 

* 313-352-4266 



The REXX RAINBOW LIBRARY SERIES is a 
complete product line of support libraries 
designed specifically for use with ARexx. 
Each volume in the Scries contains functions 
dedicated to a specific subject. The first 
volume in the series is the Stem/Army 
functions. It provides over 100 functions to 
manipulate single dimension arrays, which 
simplify ARcxx arrays. Compound Symbols, 
Pointers and Subscripts. The functions 
include string manipulation, mathematical 
and scientific calculations and file access. 
Also included is the AssgnArrayO function 
which assigns/retrieves arrays from/to other 
ARexx programs. With this function you can 
build your own single or multiple dimension 
array functions. Tutorials and examples arc 
used throughout the manual. The REXX 
RAINBOW LIBRARY SERIES requires ARcxx 
and works with or without REXX PLUS. 
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